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Das voriıegende Buch enthalt eine vollstandige, dokumentierte Auflistung des 
BASIC-Interpreters, Version 2.8 fur die LASER - Computer 118, Zid und 3iß und 
gen V200. 


Die Unterschiede zur Version 1.2 beziehen sıch ausschließlich auf die Umschal- 
tungsmöglichkeit der Hintergrundfarbe zwischen schwarz und grun im Textmodus. 
Die dazu erforderiichen Zusatzroutinen sind fast vollständig im RüM-Bereich ab 
JEBOH untergebracht. 

Da ım restlichen ROM-Bereich keine Adressverschiebungen vorgenommen wurden, iäßt 
sich die Auflistung bis auf diesen Bereich auch fur die Version 1.2 anwenden. 


Zunächst einige Vereinbarungen: 


Die Zahlendarsteilung ist dezinal, wenn nicht eine besondere Kennzeichnung ange- 
bracht ist. W hinter einer Zahl kennzeichnet diese als hexadezimal und ’B’ als 
binäre Darstellung. 


In der Register-Darsteilung sind die allgemeinen Z88-Register As R C D E H 
Ly IX und IY verwendet worden. 

In der Arithmetik-Beschreibung werden zusätzlich die Regıster-Bezeichnungen X 
und Y angewandt. X ist der ab Adresse 791DH im RAM benutzte Arbeitsbereich fur 
Arıthmetik-Öperationen jeden Typs. Mit Y sind bei der Arithmetik mit einfacher 
Genauigkeit die Z8@-Register B,C,D,E tB=Exponent, C=MSB, DE=SLSB) gemeint, bei 
der Arithmetik mit doppelter Genauigkeit findet für Y der RAM-Arbeitsbereich ab 
Adresse 7927H Verwendung. 


MSP (most significant byte) = höchstwertiges Byte einer Zahl 
LSR {least significant byte) = niederwertiges Byte einer Zahl 


Werden einzelne Rits eines Registers oder einer Adresse angesprochen, so ist das 
entsprechende Bit hinter dem Register oder der Adresse in Klammern angegeben, 
z.B. Ai?) = Bit 7 im Register A, MSB XB) = Bit B im höchstwertigen Bute des 
Arithmetik-Registers X. 


in der Auflistung finden Sie eine Reihe von Byte-Definitionen (DEFB), hinter 
denen im Kommentar ein vollständiger Befehl mit dem Zusatz "Dummy-Befehl" aufge- 
führt ist. Diese dienen dazu, bei linearem Durchlauf der entsprechenden Routine, 
die im Operanden enthaltenen Befehlcodes zu übergehen. 


2208 
gagi 
2802 
8825 


agag 


OBAR 
Mat 


3010 


2813 
8014 
8816 


8818 


Bir 
Beic 
291E 


8028 


5023 


8026 


F3 
AF 
32 88 68 
C3 74 Bó 


c3 80 78 


Ei 


20 OB 2A 
c3 83 78 
B6 Bi 
18 2€ 


C3 86 78 


0 
% 82 
18 26 


C3 B9 78 


BA 04 
18 1E 


Initialisıerung des Rechners 


DI ‚Interupts ausschalten 
XOR å ;Text-Madus einschalten 
iD (68004), A 

JP Bo7áH weiter bei 674 


KERREKERERREREEEREREEEEEEEEEEEEEE EEEE 


Restart 8 

JP 75H ‚Sprung über RAM-Vektor 78B0H 
‚zur Adresse 1C96H 

Für HL ‚unbenutzt 

JP (HL) 

Restart 18 

JP 7883H ‚Sprung uber RAM-Vektor 7803h 


jzur Adresse 1078H 


Einlesen eines Zeichens uber Device-Control-Block (DCB) 


PUSH BC ıBC retten 

LD B,1 ;B fur DEB-Prufung setzen 

JR 46H szur DCB-Aufrufroutine 
Restart 18 

JP TBBOH ‚Sprung über RAM-Vektor 78B6H 


jzur Adresse 1C90H 


Ausgabe eines Zeichens uber Device-Control-Block (DCB) 


PUSH BC sBC retten 

LD B,2 ‚B für DEB-Prufung setzen 

JR 46H szur DEB-Aufrufroutine 

Restart 28 

JP 7889H Sprung uber RAM-Vektor 7BB9H 
1zur Adresse 25D9H 

PUSH BC snicht benutzt 

LD 2,4 

JR 46H 


2028 


8238 


0036 
X 


2038 


Bas 
BBIE 


oB4c 
084D 
BME 


c3 86 78 


1115 78 
18 E3 


11 1D 78 
18 E3 


C3 BB 2E 


11 25 78 
18 DB 


(3 FD 2ZE 


c9 
0a aa 


CI 74 Bó 


CD 2B 88 


18 F9 


2A 20 78 


Restart 28 
JP 780CH ‘Sprung zum RAM-Vektor 78BCH 


Tastatur-Abfrage 
Reg. A enthält beim Rücksprung den ASCII-Code einer 
gedrückten Taste oder &, wenn keine gedruckt. 


LD DE, 7B15H ıDCB-Adresse für Tastatur laden 
JR 13H weiter bei 13H 

Restart 38 

JP TSBFH ‘Sprung zum RAM-Vektor 7BBFH 


Bildschirmausgabe über DCB 
beim LASER 118-318 nicht benutzt. 


LD DE, 781DH +DCB-Adresse laden 

JR 1BH weiter bei 1BH 

Restart 38 sInterrupt-Vektor für IMi 

JP ZEBEH sZur Interrupt-Service-Routine 


Druckerausgabe über Device-Control-Block (DB) 
Reg. A muß das auszugebende Zeichen enthalten 


LD DE, 7825H ;DEB-Adresse laden 

JR 1BH jweiter bei 1B 

JP 2EFDH izur Tastatur-Leseroutine 

RET nicht benutzt 

JP 674H Sprung zur DCB-Aufrufroutine 
Tastaturabfrage 


wartet, bis eine Taste gedruckt wird. 
Ausg.: A-Reg enthält ASCII-Code der gedr. Taste 


CALL  2BH Tastatur auswerten 
OR A Taste gedruckt? 
RET NZ Ja, zuruck 

JR 49H jnein, warten 


FER HAERA EE EAEE RE FEAE AEA AEAEE E EE IEE E HEEE EEE 


Zeichen aus Cursor-Position sichern 
LD HL, 7828H ‚Cursor-Adresse laden 
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8853 
2054 
8057 


2058 


205F 


Mh! 
az 


8065 


2875 
2878 
2872 
207E 


7E 
J2 3C 78 
c9 


BB 
78 
Bi 
20 FB 


3i 88 86 
JA EC 68 


FE 82 
D2 08 38 
[3 cc 


11 88 78 
21 F7 i8 
Bi 27 08 
ED 38 


21 E5 79 
J6 3A 
23 

78 

23 

36 2C 
23 


LD As (HL) iZeichen laden 
LD {783CH), À snach 783CH sichern 
RET 


inicht benutzt 


EEE EEE 


Zeitschieife 

Eing.: Reg. BC bestimmt Dauer 

DEC BE sZähler - I 
LD AB ı= 87 

OR c 

JR NZ, 60H ‚nein, zuruck 
RET fja, fertig 


RR ER EEE 


Interrupt-Vektor für "Non maskable interrupts 
Im LASER 118-318 nicht benutzt 


LD SP, 80H 

iD Ay (6BECH) 

INC À 

cP 2 

JP NC,8 ‚Kaltstart 
JP CCH tWarmstart 


FIEIRA AEAEE dE AE AE E HIRSCH 


BASIC-Initialisierung Teil 2 


LD DE, 7888H - ;interprograsme f. Div, Out, Inp 
LD HL, 18F7H u.a. ins RAM übertragen. 
LD BC, 27H 

LDIR 

LD Hi, 79E5H sI0-Buffer einrichten 

LD (HL), 3AH svor Buffer O, P, ypy 
INC H ischreiben 

LD (HL), B 

INC HL 

LD tHL), 2C Pr 

INC HL 


GABE 
0891 
0073 
2096 
8098 
0099 
209A 


289D 
AF 
ODAL 


BRAS 
ADAG 


22 A7 78 


128 
BA ic 

21 52 79 
36 63 
23 

73 

23 

72 

18 F7 


84 15 
36 (9 
23 
23 
23 
18 F9 


2i E8 7A 
78 

31 F8 79 
CD BF 1B 
CD C9 0l 


an 23 oa 2 
18 84 
D7 B7 28 12 


21 4C 7B 
23 

7C 

B3 

28B 1B 
7E 


28 F3 
18 ii 


CD 5A 1E 


INC 


{(78A7H) HL 


DE, 12DH 
8,28 

HL, 7952H 
(HL), OC3H 
HL 

(HL), E 

HL 

(HL); D 
2096H 


B,21 
(HL), 8C9H 
HL 

HL 

HL 

BRAIH 


HL, 7AEBH 
(HL); B 
SP, 79F8H 
1BBFH 
1C9H 


BACAH 


HL, 7B4CH 
HL 

ÀH 

L 

Z, 00E7H 
As (HL? 
BA 


IHL); A 
{HL} 
(HL); B 
2, 88C7H 
BBETH 


1ESAH 


;10-Bufferadresse speichern 


Vektoren der Disk-Befehle 

sauf "DISK COMMAND"’-Error setzen 
Anfangsadr. der Vektoren im RAM 
;Sprungbefehl auf Adr. 12DH in 
sin Jeden Vektor schreiben 


nächster Vektor 


;RAM-Adressen zur Erweiterung 
‚bestehender BASIC-Befehle nit 
;RETURN vorbesetzen 

‚danach zwei Byte für evtl. 
‚Sprungadresse freihalten 
weiter 


;Programmanfang markieren 

mit 8 

;Stackpointer laden 

‚Stack initialisieren (über NEW) 
Bildschirm löschen 

nicht benutzt 


‚nächsten 4 Byte überspringen 
micht benutzt 


Ab 7BADH Speicherende suchen 
nächstes Byte 
Adresse BAOD erreicht? 


ida! 

Inhalt des Bytes laden 
merken 

iler Komplement bilden 

und speichern 
sausgelesener Wert gleich? 
Alten Byteinhalt wiederherst. 
wenn gleich, nächstes Byte 
ıErm. Speicherende verarbeiten 


nicht benutzt 


2009 
BRDA 
BRDD 


BDF 
FEJ 


0108F 


BIIF 


0128 


0i2A 


0120 


B7 

02 97 19 
EB 

2B 

JE 8F 
46 

71 

BE 

78 

28 CE 


2B 

11 14 % 
DF 

DA 7A 19 
ii CE FF 
22 Bi 78 
19 

22 AB 78 
CD 4D 1B 
cD 84 34 
21 @F Qi 
CD A? 28 
ED 56 


C3 BE B 


56 49 44 45 
4AF 20 5445 
43 48 AE 4F 
46 4 47 59 
8D 

42 41 53 49 
43 20 56 32 
2E 38 

aD 8D 8D 


IE 2C 


OR À 

JP NZ,1997H 

EX DE,HL 

Det HL 

iD A SFH 

LD B, (KL) 

LD (HL), A 

CP (HL) 

LD (HL); B 

JR NZ, BORSH 

Speicherende fur BASIC festlegen 

DEC HL Adresse des letzten Bytes 

LD DE, 7C14H ses mussen mindestens 1B68 Byte 
RST 18H ifrei sein 

JP C, 197AH ssonst "OUT OF MEMORY"-Fehler 
LD DE,-58 

LD {78B1H),HL }Speicherendadresse merken 

ADD HL, DE ‚Speicherende -58 

LD (7BA0H) , HL s=Anfang String-Space - 1 

CALE 1BADH ‚Aufruf der 'NEW”-Routine 

CALL  3484H ‚Zähler u. Pointer initialisieren 
LD HL,BIBFH Adresse Vorstelltext 

CALL  28A7H Text ausgeben 

IM 1 ;Interrupt-Mode 1 einschalten 
JP DOBEH izum Teil 3 der Initialisierung 


EERIE IEE dE Fe AEE EAE 1E JE AEE AE IEE E AEE EE FEE EE 


Vorstelltext 
DEFM "VIDEO TECHNOLOGY’ 


DEFB BDH 
DEFM BASIC V2.8’ 
3x DEFB BDH 


RITA 


Ausgabe "DISK COMMAND - ERROR" 
LD E,2CH ;Fehlercode 
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8132 
8133 
8134 


8135 
8137 


8138 


B13A 
Bi3B 
B13c 
Bi3D 


8148 
8142 
8145 
8146 
8147 
8148 


0148 
814D 


8158 
8151 
8152 
8153 
8154 
8155 
8156 
8157 


63 A2 19 


D7 


Bi 


JE 88 
Bi 


JE ði 


F5 
CF 
28 
cD iC 28 


FE 88 

D2 4A 1E 
F5 

Ga 

2 

CD iC 2B 


FE 48 
D2 4A 1E 


5F 
AF 
57 
ER 
29 
29 
27 
29 


JP 1942H ‚Sprung zur ĦMeidungsausgabe 


FRIERE FE HE IE E IE HE FEHI IE AE RE RAE E AE AEAEE EEEE E 
Grafikanweisungen POINT, SET und RESET 


POINT - Anweisung 
Ermittelt, ob Punkt in hochaufl. Grafik gesetzt ist 


RST 18H Nächstes Zeichen d. Befehl 
XOR À 18 = Flag fur Point 
DEFB GIH ssimuliert LD BC,SBJE bei POINT 


SET - Anweisung 

Setzt Punkt in hochauflösender Grafik 

LD À, BOH i88 = Flag für SET 
DEFB GiH simuliert LD BC, 013E 


RESET - Anweisung 
Löscht Punkt in hochauflösender Grafik 


LD A BIH ;i = Flag für RESET 

Gemeinsam für POINT, SET und RESET 

PUSH AF Flag retten 

RST 8 inächster Zeichen = °{(°? 

DEFB 0” 

CALL  2BiCH sl. Ausdruck in Klammer auswerten 
X-Koordinate 

CP 128 p 127? 

JP NC, 1E4AH Ja, SYNTAX-ERROR 

PUSH AF ‚X-Koordinate auf Stack 

RST 8 folgt ein Komma? 

DEFB py 

CALL  ZBICH +2. Ausdruck in Klammer auswerten 
Y-Koordinate 

cP 64 $ 63? 

JP NC, 1E4AH Ja, SYNTAX-ERROR 

Aus X,Y Bildadresse und Bitmaske ermitteln 

LD E,A ıY-Wert in DE 

XOR A 

LD D,A 

EX DE,HL ıY x Zeilenlänge (x32) 

ADD HL; HL x2 

ADD HL, HL 5x4 

ADD HL, HL i ix8 

ADD HL, HL ixió 
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8158 
8159 
8154 
8158 
Bist 
815E 
8168 
Bibi 
Bi62 
i63 
8165 
Bibb 
i7 
8169 
BI6A 


BiB 
Bist 
Bisp 
8178 


8171 
8173 
8176 
8178 
B17A 
817C 
017E 
8188 


8183 
8186 
8188 
0188 
BIBE 


819D 
819% 


10 FA 
C3 B3 39 


21 39 78 
CB 9E 

21 84 83 
CD A7 28 
c3 CF J6 


ADD HL, HL 
EX DE, HL 
POP AF 

PUSH AF 

SRL A 

SRL À 

ADD AE 

LD E,A 

LD AD 

OR 70H 

LD D, A 

POP AF 

AND 3 

ADD AÀ 

LD BA 

POP AF 

OR À 

JP 2, 3BE7H 
PUSH AF 

Für SET und RESET Bits 
LD Ci 3FH 
LD Às (7846H) 
SLA A 

SLA A 

RRC A 
RRC c 

DJNZ  @17AH 
JP 3903H 


1332 

ı= rel. Zeıilenanf. adresse 
ıX-Wert laden 

‚und wieder auf Stack 
‚X-Koordiante / 4 


;t rel. Zeilenanf.adresse 


‚+ Bildanfangsadresse 

(beim LASER 7OB0H) 

;DE = Bildadresse 

ıX-XKoordinate laden 

‚letzte 2 Bits maskieren (8,112,3) 
IX 2 (Br 234,6) 

sin B als Verschiebezähler 


iFunktions-Flag laden 

= 9 

iJa - dann POINT ausführen 
Funktions-Flag sichern 

in Reg. A und C naskieren 
sGrundwert in © laden 
Farbcode als Grundwert in A 
sin obere 2 Bits schieben 


imit B als Schiebezähler Grund- 
werte in erf. Position schieben 
A für SET (OR), C für RESET (AND) 
weiter bei 3903H 


FAERIE AE EERE IE AE 1E AE FE AEAEE FEAE EAE FEAE AEE E EEE EEE EEEE 


Fehlerbehandlung bei VERIFY 


LD 
RES 
LD 
CALL 
JP 


HL, 7839H 
3, (HL) 
HL 0384H 
28A7H 
36CFH 


;Verify-Bit in Flag2 löschen 


Fehlermeldung adressieren 
sund ausgeben 
weiter bei 36CF 


HR HHHRRRREIRHHHTHISER 


INKEY$ - Funktion 


RST 
PUSH 


10H 
HL 


Nächstes Zeichen 
Pointer retten 


8019F 
BIAZ 
BIAI 
BiAS 
BIAB 
DIAN 
BIAB 
BIAC 
BIAD 
8188 
GiBi 
B1B4 
8185 
8188 
8189 


BIRC 
BiBF 
BiCz 
Aich 
B1C7 


c8 


2109 
Bit 
BICE 
8108 


8103 
8105 
8108 


J IC 
(D 3A 03 
JE IF 
C3 JA B3 


ED 5F 
32 AB 78 
(9 


LD À, (7899H) ‚Zeichen aus INKEY$-Speicher laden 
OR À jZeichen vorhanden? 

JR NZ, B1ABH ida! 

CALL 0358H şTastaturabftrage 

OR À ineue Taste gedruckt? 

JR Z,BiBCH jnein, Leerstring in X-Reg. 
PUSH AF Zeichen auf Stack 

XOR À j INKEY$-5peicher löschen 

LD (7899H) À 

INC A ‚Stringlänge = 1 

CALL 2857H si Byte im Stringspace reservieren 
POP AF Zeichen wieder laden 

LD HL, {78D4H) Adresse im Stringspace laden 
LD {HI A Zeichen in Stringspace übertr. 
JP 2B84H weiter bei 2BB4H 

LD Hi, 1728H jZeiger auf Leerstring 

LD (79214), HL inach X 

LD Ay3 ;Typ = String setzen 

LD (7BAFH) A 

POP HL Pointer wieder laden 

RET 


FARER EE AE IE AE EAE AEE EAE AE EAE EE AEAEE EE E HHHH 


CLS -~ Anweisung 


Löschen des Bildschiras 


LD A ICH iCursor an Bildanfang 
CALL  @33AH 

LD As IFK ;Bild bis Bildende löschen 
JP BI3AH 


FEIE IEEE IAEE AEAEE AE AAEE AEE IEE AE EAEE IEE IEE EEEIEE E E E 


RANDOM - Anweisung 


Initialisieren des Zufallsgenerators 


LD AR jRefresh-Register laden 
LD {T8ABH) JA sin Zufallszahl-$rundsert 
RET 


FEIE IEE IEEE EAEE EEEIEE AEAEE AEE EA SEAE AEE EEE E 


Tastatur - Tabellen 
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EEEREEREREEHEREEEERREEEEEEEEERE EEEE 


Tasten-Codes ohne SHIFT 


DIDY 54 4742 35 DEB 'T’o Br N rc Bitreihe 8 
4E 36 59 48 

MIEI 575358 32 EB OWL PLOL Bitreihe Í 
2E 39 4AF ac 

OIE? B0 20 BA 28 DEFB BOH, BOH, BOH, BBH, BOH, -ER „’:’ Bitreihe 2 
00 2D DD 3A 

BIFi 45 44 43 33 DER ODE Bitreihe 3 
20 38 49 AB 

OIF? 51 41 5A 31 EB OLD, Bitreihe 4 
20 38 50 3B 

0201 52 46 56 34 EB OR PP PP PP U P Bitreihe 5 
4D 37 55 4A 


Tastatur-Codes mit SHIFT (u.a. Semigrafik) 


0209 868908 25 DEFB 8CH, 89H, B@H, 25H, 5EH, 26H, B3H,B6H Bitreihe 0 
5E 26 83 8b 

2211 8D 82 80 22 DEFB SDH, 82H, BOH, 22H, IEH, 29H, 58H, 3FH Bitreihe i 
JE 29 58 IF 

2219 30 08 00 08 DEFB BOH, OOH, BOH, BOH, BAH, 3DH, BDH, 2AH Bitreihe 2 
2a 3D DD 2A 

0221 8B 84 80 23 DEFB BBH, 84H, BOH, 23H, SCH, ZBH, 85H, 2FH Bitreihe 3 
JC 28 85 ar 

2229 BE 81 88 21 DEFB SEH, 81H,80H, 21H, 20H, 40H, SDH, 2BH Bitreihe 4 
20 48 5D ZB 

8231 87 88 08 24 DEFB 87H, 88H, BGH, 24H, 5CH, 27H, BAH, BFH Bitreihe 5 
56 27 BA SF 


Tastatur-Codes mit CTRL (u.a. CMD-Token) 


8239 CA 8D B5 B4 DEFB — CAH, BDH, B5H, B4H, 97H, SEH, 95H, 84H Bitreihe 8 
97 BE 95 84 

B241 BD CC Bi 89 DEFB BDH, CCH, BiH, BIH, 1BH, 8BH, 8CH, 15H Bitreihe 1 
1B 88 8C 15 

0249 OB 0 oB DEFB BOH, GOH, BOH, OOH, BBH; B1H, AOH, BAH Bitreihe 2 
iR 0i 0 28 

0251 87 8A B3 9C DEFB 87H, BAH, B3H, FCH, BIH, BBH, 89H, BCH Bitreihe 3 
87 BB 89 BC 

0259 81 9D E5 BA DEFB 81H, 9DH,ESH, BAH, BAH, BBH, B2H, 7FH Bitreihe 4 
BA 88 B2 7F 
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0261 


8269 


8271 


2279 


8281 


0289 


8291 


8299 


82A7 


92 91 AF %8 
05 88 BF 93 


FA 94 9E DF 
BF EQ F9? 83 
F5 F4 AB El 
20 D? D3 0a 
a 00 00 08 
0A Bı 08 28 
F3 Mm 96 E3 
2 DD D2 Cé 
F7 F6 DB E2 
o8 DS CB 28 
F8 DE C1 E4 
06 D? C9 82 


E2 EL E3 EA 
DF EB D7 
DD D9 D8 F7 
F5 F3 F8 
F7 F? 9D Fó 
F4 DE E5 FA 


DEFB 


92H, 71H, AFH, 78H, OBH, 80H, SFH, 93H 


Bitreihe 5 


Tastatur-Codes für Funktionen {mit CTRL-ENTER angek. ) 


DEFB 


DEFB 


DEFB 


DEFB 


DEFR 


DEFB 


Token, denen bei der Ausgabe das Zeichen ’(’ 


FAH, 74H, JEH, DFH, BFH, EBH, F78, 83H 
FSH, F4H, ABH, E 1H, BBH, DIH, DIH, BAH 
BBH, BAH, BAH, BBH, BBH, GIH, BBH, BOH 
FIH, IH, 76H, EJK, BOH, DDH, DZH, CAH 
F 7H, F6H, DBH, E2H, BOH, DBH, CEH, BOH 


FBH, DEH, C1H, E4H, BOH, D7H, COH, 82H 


angeftugt werden muĝ. 


DEFB 


DEFB 


DEFB 


RRRHRRHRRASARAIHHRRHHHERETNE N 


EZH, E1H,E3H, E4H, DFH, EBH, D7H 
DDH, DFH, DSH, F7H,F5H, F 3H, F8H 


F 7H: F 9H, IDH, FH, FáH, DEH, ESH, FAH 


Bitreihe 9 


Bitreihe i 


Bitreihe 2 


Bitreihe 3 


Bitreihe 4 


Bitreihe 5 


Tabelle zur Ausgabe der Grafikzeichen auf einer Drucker. 


Pro Zeichen enthält die Tabelle zwei Byte. 


DEFB 
DEFB 


SBH, 88H įZeichen 88H 
SBH, BEH $Zeichen 8iH 
BƏH 86H Zeichen B2H 
BBH BSH Zeichen 83H 
88H,87H Zeichen 84H 
BBH, BFH Zeichen BSH 
BƏH, 87H jZeichen 86H 
BBH, BFH Zeichen 87H 
87H, 88H Zeichen 88H 
87H, BFH Zeichen 89H 
BFH, BOH jZeichen BAH 


- {5 - 


8205 
8207 
8209 
B2CB 
B2Ch 


B2CF 


B2DF 


O2FF 


8311 
8314 
8315 
2316 


8317 


BF BB 
87 87 
87 BF 
BF 87 


72 02 4F 02 
2Æ 82 BE 02 
Fi 81 D5 Bi 
B7 81 9E Bi 
86 B1 70 81 
SB Bi 48 81 
38 23 8 
13 81 03 8i 
F4 00 E& 88 
D? 08 CD Ba 
C1 B0 BS 08 
AB DR Ai 88 
280 or 
87 00 7F 0 
78 80 70 08 
bA 08 


8i 28 


DEFB BFH, BBH Zeichen 8HH 
DEFB 87H,87H Zeichen BCH 
DEFR 87H, BFH ‚Zeichen BDH 
DEFB BFH,87H Zeichen BEH 
DEFB  BFH,BFH Zeichen BFH 


RR AEE AEE FEE EEEE 


Frequenz-Tabelle für das SOUND-Kommando 
pro Note ein 2-Byte Eintrag. 


DEFW 626,591,558,526, 497,469,439,414 A2 - E3 
DEFW 390, 368, 347, 328, 309, 291,275,259 F3 -~ C4 
DEFW 244,238, 217,285, 193,182, 171,161 CH - 684 
DEFW 152,143, 135, 127,128, 112, 186 | Ak - W5 


FERE IEE AEE E FEE EIEEE E AEE EAE IE AEAEE AE FEAE EAE EE EEE E 


Zeichen an Cursor-Position wiederherstellen 
(Teil der Bildschirmausgabe-Routine) 


LD BA sauszugebendes Zeichen in B 

LD A, (7B3CH) ‚Zeichen an Cursor-Position laden 
LD HL, (78204) sCursoradresse laden 

LD (HL?) A jZeichen ausgeben 

LD AB sauszug. Zeichen wieder in A 

RET 


JHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHHE 
Cursor-Adresse eine Zeile zurück 

Eing.: H. = aktuelle Cursoradresse 

LD BC, 32 }Zeilenlänge 
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831A 
831B 
B31D 
2328 


9321 


032A 
0328 
832€ 
032F 
0332 
B333 
8334 


0338 


BR 


B33t 
833D 


2341 
2342 
8343 


B7 

ED 42 
22 20 78 
9 


0i 82 83 24 
Bb BB 8C 18 
18 


5 

4F 

CD Ci 79 
JA 9C 78 
B7 

79 

ci 

FA 54 3B 
20 62 


F5 
c3 


CD 88 38 


OR À starry löschen 

SBC KL, BC ‚Cursoradr. - i Zeile 
LD (78204), HL sin Cursor-Pointer 
RET 


EHAR EEEIEE E EJEA FE A AE AEE AE EAE R FEFE AE FE E E FE E IEEE dE 


Multiplikatoren für Tondauer des SOUND-Kommandos 
i Byte pro aöglichem Eingabe-Code (1-9) 


DEFB 112,3245638,12, 16,24 


FEAE EAE HEIE IE FEAE AAE FEAE AE AE AE FE E AE AE AE H I AE E EAE AEE E eE EE EE 


Zeichen auf Bildschirm, Drucker oder Kassette 
ausgeben. 
Eing.: A = auszugebendes Zeichen 
789CH = Ausgabe-Flag (@=Bildschirm, i=Drucker 
BB = Kassette) 


PUSH BC ;BC retten 

LD GA Zeichen in C merken 

CALL  79CiH ;RAM-Erweiterungsausg. (RET) 

LD A, 789CH jAusgabe-Flag laden 

OR À sund testen 

LD Art Zeichen zurück in A 

POP BC ;BC wieder laden 

JP M, 3B54H ‚Kassette? ja - weiter bei 3B54H 
JR NZ, B39CH iDrucker? ja - zur Druckausgabe 


EREE IHE EIEEE EEEE E EE FE IE AEE EEEE eE 


Ein Zeichen auf des Bildschire ausgeben 
Eing.: A = auszugebendes Zeichen 


PUSH DE ;Register sichern 

PUSH AF 

PUSH BC 

PUSH HL 

CALL  388BH Aufruf der Ausgaberoutine 
POP HL Register wieder laden 

POP BE 

NOP 

NOP 


- 17- 


8345 
2346 
8347 


B348 


34D 
8358 
0352 
8353 
2355 
8357 


8358 
0358 
833C 
B35F 
2368 


8369 


8371 


8379 


ri 
Di 
c9 


JA 3D 78 
E6 B8 
JA 20 78 
28 83 


Eb iF 
Eb iF 
(9 


CD c4 79 
D5 
CD 28 28 
Di 
c9 


BA OB BC aC 
OD BE OF BF 
18 11 12 13 
15 16 17 19 
1A iC iD IF 
21232527 
29 26 2E 3i 
34 35 3A 


POP AF ' 
POP DE 
RET 


EEE EEE E 


tursorposition in Zeile ersitteln 
bei LASER 118-318 nicht benutzt 


LD À, (783DH) 
AND 8 

LD A, (78204) 
JR 2,8355H 
RRCA 

AND iFH 

AND IFH 

RET 


TATRA E EE EEE EE E 


Tastatur-Abfrage 
Ausg.: A = ASCII-Code oder 0 


CALL  79C4H ;RAM-Erweiter.ausgang {RET) 
PUSH DE IDE sichern 

CALL  BBZBH Tastatur auswerten 

POP DE 5 ıDE wiederherstellen 

RET 


FEAE EE FEE AE MAE dE AEA FEAE AEAEE AE AE AE EFE AEAEE HE EEE EEE Et 


Tabelle der Zeitgrundwerte für jede einzelne 
Note des SOUND-Kommandos. 


DEFB 18,11,12,12,13,14, 15,15 A2 - E3 
DEFB  16117,18,19,21,22,23,.25 ir3 = Ch 
DEFE  26:28,29,31,33,35,37,39 CH - GRA 
DEFB 41,44,46,49,52,53,58 Ad - D#5 


FEE IEH HEIE AEI HEIE AEE HE E A AE AE HEFE FEAE AE AERE HEE EFE FE EEEE 
0K- und Fehlermeldung des VERIFY-Komaandos 
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2388 
8382 
0384 
2389 


B388 
038C 
BEF 
0392 
8373 


8394 
0396 
8397 
B39A 
B39B 


837C 
8370 
B39 
B39F 
DIAB 
BR 


3A 


B3AA 
3AT 
B3AD 


B3Bi 
0384 
8385 


AF ák 
aD a0 
45 52 52 4F 52 
aD 20 


AF 
32 9% 78 
JA 98 78 
B7 
c8 


JE 8D 

D5 

cD 9C g3 
Di 

c9 


F5 
D5 

c5 

4F 

IE BR 
FE &C 
2 18 
FE ØA 
2 03 

JE @D 

Ar 

FE @D 
28 85 

3A 9B 78 
3c 

5F 


DEFM OK 

DEFE  ØDH, 20K 
DEFM ERROR’ 
DEFE BDH, 00H 


CEHRRRTRITH KETTE HR RR THEIR 


Ausgabe-Flag aut Bildschirm. 
ER auf Drucker, wenn nicht am Zeilenanfang 


KR À sAusgabe-Flag auf Bildschirm 
LD (TBICH) A 

LD Ay 178984) ‚Druckerposition in Zeile 

OR À = 8? 

RET 2 33a - fertig 


Garriage-Return auf Drucker ausgeben 


LD A, BDH ICR laden 

PUSH DE ;DE sichern 

CALL  B39CH ;CR ausgeben 

POP DE DE wieder herstellen 
RET 


EERE E EE EEEE Ee E EEE E e eE EE E EE E EE E 


Zeichen auf Drucker ausgeben, 
Eing.: A = auszugebendes Zeichen 
7898 = Druckkopfposition 


PUSH AF Register retten 

PUSH DE 

PUSH BC 

LD GA sZeichen in C 

LD E,® E=: 

cP BCH şist es ein FormFeed? 

JR 2,8386 13a! 

cP BAH sIst es ein Line-Feed? 

JR NZ B3ADH ‚nein! 

LD A,BDH jJa, durch Carriage-Return ersetz. 
LD GA sund in C 

CP BDH ‚Ist es ein Carriage-Return? 
JR 2, @3B6H jja! 

LD Àr (7B98H) iDruckkopfposition laden 

INC À iti 

LD E,A şin È 
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B3B6 
0387 
BIBA 
B3BR 
BIBE 
O3BF 
B3CH 
B3c! 


8562 
8303 
8365 
B3Ch 


8309 
BIC 
B3ch 
BICE 
B3CF 
8308 
8301 
03D4 
8306 
8309 
B3Dt 


8300 


BIER 


BE! 
03E2 


cD 38 a8 
Ci 
Di 
Fi 
(9 


E5 
DD E5 

D5 

DD Ei 

D5 

21 DD 83 
E5 

AF 

1A 

AR 

BB 

C2 33 78 
FE 82 
DD 6E Bi 
DD 66 82 
E9 


Di 
DD Ei 
El 
ci 
c? 


LD AsE ‚neue Position speichern (CR=Bı 
LD (789BH) A 

LD Art yauszug. Zeichen in A 

CALL  BBSBH sZeichen drucken 

POP BE ;Registerinhalte wiederherst. 
POP DE 

POP AF 

RET fertig 


RR ER 


Aufruf von Treiber-Routinen über den 
Device-Control-Block 
Eing.: DE = DiB-Adresse 
B = DCB-Typ, A = auszug. Zeichen (nur Ausgabe) 
BC muß auf dem Stack sein 


PUSH HL Register sichern 

PUSH IX 

PUSH DE sDCB-Adresse in IX 

POP IX 

PUSH DE sund auf Stack 

LD HL, B3IDDH iRucksprungadresse auf Stack 
PUSH HL 

LD GA Zeichen nach C 

LD A, (DE) ;DCB-Kennung laden (1.Byte) 
AND B mit vorgegeb. Typ undieren 
CP B richtiger Typ? 

JP NZ, 78334 tnein, uber RAM 78334 zurück 
cp 2 ;bei Eingaben Carry setzen 
LD L {(IX+i) jaus DCB Treiber-adresse laden 
LD Hy i IX+2) 

JP (HL) Treiber anspringen 


Ruckkehr vom Treiber 


POP DE Register wiederherstellen 
POP IX 

POP HL 

POP BC 

RET fertig 


ERIE HEIE EIE FEAE E FE EAEE AE EIEEE E d FE A AE AEAEE E EEE E 


Einlesen einer Zeile von der Tastatur. 
Zeile wird bis zur Betätigung der RETURN- oder BREAK- 
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B3E3 
QJE6 
B3EB 
AJER 
B3EE 


B3r1 
B3F3 
Br4 
BIF& 
BIFB 
Q3rB 
BFC 
B3FE 
2408 


B4B4 
2485 
8488 


Baa 
BABE 


8418 
B413 
B414 
8415 
8418 
2419 
BAlc 
BAIE 


8421 
0424 
0428 


042A 
242D 


ż1 39 78 
CB EE 

2A 20 78 
cD 53 00 
7C 

FE 71 

28 10 

7D 

FE EB 

20 0B 

3A D7 7A 
B7 

20 85 

JE 0D 

cD 88 30 
4 

c5 

21 39 78 
CR 86 

CB 9% 

CE 46 

28 FC 


JA Ab 78 
4F 

AF 

32 Ab 78 
47 

2A 28 78 
ED 42 

22 20 78 


11 £8 79 
CI 

21 39 78 
CB 66 
2A 20 78 
28 42 


Taste eingelesen, auf dem Bildschirm dargestellt und 
anschließend in den 1/0-Buffer übertragen. 


Vorbereiten der Pointer und Flags 


LD HL, 7839H 


sInitialisierungs-Flag für 
gepufferte Ausgabe setzen. 
‚Cursoradresse laden 

Zeichen an Cursorposition sichern 
sCursor am Anfang der letzt.Zeile? 


jnein 


nein 

‚Status der i.Zeile prüfen 
;= Folgezeile? 

jnein! 

Bild eine Zeile hochrollen 


iLänge Vorspanntext in B 
sauf Stack (B=C) 

Flag 2 adressieren 

sCR-Flag rücksetzen 
;BREAK-Flag rücksetzen 
warten, bis CR-Flag gesetzt 


Anfangsadresse der Eingabezeile ernitteln 


SET Sy iHL) 

LD HL, (7820H) 
CALL  @B53H 

LD ÂH 

cP 7iH 

JR NZ, B4B3H 
LD Al 

CP BEBH 

JR NZ, 0403H 
LD A, (7AD7H) 
OR À 

JR NZ, B403H 
LD A, ODH 
CALL  308BH 

LD B,C 

PUSH BC 

LD HL, 7839H 
RES O, (HKL? 
RES 2, (HL) 
BIT B, (KL?) 

JR Z,B4BCH 
LD Ay (7BAGH) 
LD A 

XOR À 

LD (78A6H) ‚A 
LD BA 

LD HL, (7820H) 
SRE HL: BC 


LD (78284) HL 


‚Spalte in Eingabezeile laden 
sin BC 


‚Spaltenzähler = 8 (Zeilenanfang) 
;Cursoradresse laden 


ı- Spalte = Zeileanfang 
zurück in Cursor-Pointer 


Buffer- und Zeilenadresse laden 


LD DE, 79ESH 
POP BC 

LD HKL: 7839H 
BIT — 4 iHD) 

LD HL, (7820H) 
JR Z,8471H 
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sAnfangsadresse des 1/0-Buffers 
ıZeichenzähler des Vorspanntextes 
ıFlag 2 adressieren 

;Ist das ein INPUT-Kommando? 
sAnfangsadresse der Zeile laden 
ikein INPUT-Cad, weiter bei 471H 


B42F 
24.38 
Ba3i 
h34 
2435 
M36 
8437 
8439 


BAIC 
843D 
BASE 
8440 
B441 
B442 
B443 


B44b 
- 8447 
8448 
BA4A 
BAAR 
8440 
8458 
2451 
8452 
8455 
8456 
8457 
2458 
B45A 
8456 
BASE 
BuSF 


0461 


Bhi 
gbh 


0468 


Dé 20 


1E 86 


18 85 
% 20 
2A 20 78 
11 £B 79 
63 AB 3E 


Bei INPUT Textpointer hinter vorgegebenen Text setzen 


PUSH 
PUSH 
CALL 
POP 
Pür 
OR 
JR 
LD 
SUB 
LD 
LD 
SBC 
LD 
LD 
LD 
cP 
JR 
ING 
INC 
DJNZ 
PUSH 
JR 
LD 
PUSH 
PUSH 
CALL 
POP 
POP 
PUSH 
EP 
JR 
LD 
SUB 
LD 
POP 
LD 
PUSH 
JR 
iD 
LD 
LD 
JP 


BC 

HL 
J3ABH 
HL 

BC 

À 

NZ: 8441H 
AL 

32 

LA 
AH 
AQ 
HÀ, 
CB 

A, (DE) 
(HL?) 
NZ, B44DH 
HL 

DE 
0442H 
RC 
B451H 
BCD 

BC 

HL 
J3ABH 
HL 

BC 

BC 

BBH 

Z, 0466H 
Å, 64 

c 

RA 

DE 

E8 

DE 
BA6BH 
8,32 
HL, 178204) 
DE, 7IEBH 
JEABH 


‚Register sichern 


‚Status der Zeile ermitteln 
HL + BC wieder laden 


;Foigezeile? (Status=BR) 
jnein! 
Zeilenadresse in HL - I Zeile 


jAnzahl Vorspannzeichen 
Pointer hinter Vorspanntext 
‚vergleichen, ob nicht verändert 
nicht gleich, aufhören 
;Bildpointer + I 
Bufferpointer + 1 

fertig? 

wenn gleich, Länge merken 
‚weiter bei 8451 

‚ungleich, Länge = 8 

sauf den Stack 

IHL retten 

‚Status der Zeile lesen 

;HL + BC wieder laden 


‚Länge wieder merken 
jEinzelzeile? 

‚Ja! 

‚Max. Zeichenzahl = 64 - Vorspann 


Anzahl Vorspannzeichen im Stack 
;= 9 setzen 


ı2 Zeilen übernehmen 

si Zeile übernehmen 
;Textanfangsadr. laden 
;1/0-Bufferadresse 
;Hintergrundfarbe prüfen 


8471 
8474 
8473 
8476 
2479 
BA7A 
847c 
047E 
8488 
B482 
0485 
Bash 
8488 
BABA 
8486 


8491 
3492 


0495 
8496 
8498 
0498 


49C 
DAIF 
BAAR 
BAR 


2480 
BABZ 


81 28 80 
63 

E3 

CD A8 33 
Ei 

FE 88 

28 BE 

FE 81 

28 06 

Bi 20 00 
B7 

ED 42 

Bó 40 

18 82 

BA 20 

JA 18 78 
87 

CA AB JE 


TE 

FE 48 
DA AE B4 
C1 


11 A4 B4 
D5 
c3 
c3 82 85 


D8 

21 1A 3E 
CD A? 28 
C3 E3 03 


FE 22 
28 31 
12 


bei grunem Hıntergr.weiter b.d4B8 
sbei schw. Hintergr. weiter b. JEöA 


Textanfangsadresse und max. Länge eraitteln, 
wenn nicht INPUT-Kommando 


LD 
PUSH 
PUSH 
CALL 
PaP 
cP 
JR 
CP 
JR 
LD 
OR 
SBC 
iD 
JR 
LD 
LD 
OR 
JP 


3C,0 

BC 

HL 
JASH 
HL 

80H 

Z, 048CH 
SiH 

Z, 0488H 
BE, 32 

À 

HL, BC 
D4BEH 
B, 32 

As (7818H) 
A 

Z, JE40H 


Vortextiänge = 9 setzen 

sauf Stack 

iHL retten 

‚Status der Zeile ermitteln 

IHL wieder laden 

Einzelzeile? 

sja! 

i2 Zeilen? 

‚Ja! 

ibei Folgezeile eine Zeile zurück 


‘2 Zeilen übernehmen 


si Zeile übernehmen 
;Hintergrundfarbe prufen 
‚2 = grun, 1 = schwarz 
bei grün weiter bei JE4BH 


übertragen der Daten vom Bild zum 1/0-Buffer 


LD 
cP 
JP 
POP 


LD 
PUSH 
PUSH 
JP 


RET 
LD 
CALL 
JP 


CP 
JR 
LD 


Às (HL) 
64 

C BAAEH 
BC 


DE, BAAGH 
DE 

BC 
0502H 


c 

HL, JE1AH 
28A7H 
B3E3H 


22H 
NZ,BAE3 
(DE) A 
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jZeichen vom Bild laden 
Grafik- oder Inverse? 
jnein, ubernehmen 

wenn nicht INPUT, dann sind 
Grafik und Inverse nur in 
¿Strings zugelassen 
‚Rucksprungadresse in Stack 


:Textendekennung prufen (BREAK?) 


;BREAK, zurück zum BASIC 
Text "SYNTAX ERROR" 
jausgeben 

zurück zur Zeileneingabe 


‚Stringkennzeichnung? 
jnein, weiter 
Zeichen in I/0-Buffer 


BaBI 73 INC HL sRildadresse + i 


Mu 13 INC DE iBufferadresse +t i 
8435 5 DEC B sleichenzähler -1 
B4B 28 3% JR Z,B4EEH jwenn 8, übernafme beenden 
BABS TE LD As (HL) Zeichen aus Bild laden 
BAR? FE 48 cP 64 ‚norm. Textzeichen? 
BABB DA C9 94 JF C 04COH jda! 
QABE FE 88 cP 128 j Inverses Textzeichen? 
Buch DA C5 G4 JP C B4C5H Ja! 
BACI Eb BF AND SFH arafikzeichen, Bits 4,5,6 löschen 
B4C5 F& 88 OR BAH ;Bit 7 setzen 
C7 18 13 JR BADCH 
B469 FE 22 CP 22H ;Stringbegrenzer ’"’? 
DU 20 09 JR NZ, B4D6H nein! 
BCD ES PUSH HL ;HL retten 
GACE 21 39 78 LD HL, 7839H Flag 2 adressieren 
B4Di CB ób BIT 4, (HL?)  INPUT-Kommando? 
8403 Ei POP HL ;HL wieder laden 
BDs 28 0D JR Z, B4E3H nein - ab jetzt Grafik u. 
;Inverse nicht erlaubt. 
BaDb CR HF BIT JA Zeichen in echten ASCII-Code 
BADB 28 82 JR NZ, B4DCH umwandeln, z.B. ’A’ von Bi in 41 
BADA Fó 40 OR 40H jbetritft Codes BB - IFH 
BADE 12 LD (DE); A Zeichen in 1/0-Buffer 
BADD 23 INC HL ;Bildadresse + I 
BADE 13 INC DE ¡Buf feradresse + | 
ADF i0 D7 DJNZ  @4B8HK Zähler - I 
MEI i8 BB JR B4EEH .. 3= 6, dann fertig 
B4E3 CB éF BIT ZA Zeichen in echten ASCII-Code 
B45 20 02 AR NZ, B4E9H umwandeln, z.B. °C von 83 in 43 
B4E7 Fb 48 OR 40H jbetrifft Codes 08 -IFH 
MEI 12 LD {DEI,A Zeichen in 1/0-Buffer 
BAEA 23 Int HL ;Bildadresse + I 
BEER 13 INC DE }Bufferadresse + i 
BEC iB A7 DJNZ 8495H Zähler - I 
übertragung beendet, Bufferinhalt vervollständigen 
D4EE 1B DEC DE sBianks am Bufferende elimin. 
DAEF 7A iD AD sam Bufferanfang? 
BAFB FE 79 cp TM . 
BAF? 208 06 JR NZ,B4FAH jnein 
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Bar 
BAFS 
Bar? 
BAFA 
BAFE 
BAF D 


BFF 
2508 
a501 


8582 
2585 
8588 


B50A 


0500 
BSR 
8510 
8513 
8514 


0517 


0524 


TB 

FE E8 
DA FF 84 
1A 

FE 28 
28 EF 


12 


CD AB 33 
2A 20 78 
FE Bi 

CD 53 88 
28 84 

AF 

cD 88 38 
AF 

cD 8B 38 


3A 38 78 
Eb FD 

32 38 78 
21 39 78 
CR 56 

28 05 

J ði 

37 

18 8i 

AF 


21 39 78 
CB Ab 

21 E8 79 
ci 

F5 

5 
329% 


LD 
CP 
JP 
LD 
CP 
JR 


INC 
XOR 
LD 


ÀE 
BEBH 

C B4FFH 
A, (DE) 
20H 
ZyB4EEH 


DE 
A 
(DE), A 


1Ja, fertig 
Zeichen laden 

$= Blank? 

jja, weiter zuruck 


sBufferende mit X’B0’ 
ıkennzeichnen 


Abhängig vom Zeilenstatus 1 oder 2 Leerzeilen ausg. 


CALL 
LD 
CP 
CALL 
JR 
XOR 
CALL 
XOR 
CALL 


POP 
PUSH 
ADD 
JP 


J3AÐH 

HL, (7828H) 
BiH 

BB53H 

NZ, B513H 
A 

3BBBH 

À 

3BOBH 


A, (7838H) 
BFDH 
(78384) ,A 
HL, 7839H 
2, (HL) 

2, 852BH 
Åi 


052CH 
A 


HL, 7839H 
As (HL) 
HL, 79E8HK 
BC 

AF 

HL, BC 
JE29H 


\Zeilenstatus ermitteln 
‚Cursor-Pointer laden 

;2 Zeilen? 

‘Zeichen aus (ursorposition sich. 
jeinzeilig 

31 Leerzeile ausgeben 


ıi Leerzeile ausgeben 


‚Flag i laden 
sINVERSE-Flag rücksetzen 
‚Flag 1 wieder zuruck 
Flag 2 adressieren 
;BREAK-Flag gesetzt? 
ynein! 

;BREAK, A=1 

+ Carry setzen 


ikein BREAK, A=8 


Flag 2 adressieren 
sINPUT-Cad Flag zurücksetzen 
‚1/0-Buffer adressieren 

sauf Beginn der Eingabe 
sBREAK-Kenner sichern 


weiter bei JE29H 


HHHHHHHHHHEEEEEHHHE HE IHEHHEHHHHHHAHE HHHH 


Teil der INPUT-Command Routine 
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853A 
854D 
053E 


8548 
B542 
8545 
8547 


8549 
0548 
854C 


854D 
8558 
8551 
0554 
0554 
8558 
8559 
B55A 
0558 
055E 
2568 
563 
0564 
8566 
567 
856A 
Bö6t 
B5ahr 


2578 
9573 


258D 


JA AF TA 
B7 
z0 FA 


B 40 

21 E8 79 
JE 20 

77 

23 

18 FÜ 


7 


CD A8 33 
B7 

JA Ab 78 
28 02 

Có 20 

4F 

AF 

47 

2A 20 78 
ED 42 

11 EB 79 
c5 

ED 30 

ci 

2 3978 
CB Eb 

CD E3 03 
c9 


32 55 4% 
88 


79 


Einlesen einer Zeile in den 1/0-Buffer 


LD 
OR 
JR 


LD 
LD 
LD 
LD 
INC 
DINZ 
XOR 
LD 


PUSH 
LDIR 
POP 
LD 
SET 
TALL 
RET 


A, (7AAFH) 
À 
NZ, BS3AH 


Br 64 
HL, 79EBH 
A’ 
(HL) sÅ 
HL 
9547H 

A ; 
(HL) Å 


J3ABH 

"a 

A, (78A6H) 
NZ, 0558H 
À, 32 

CA 

À 

B,A 

HL, 178204) 
HL, BC 
DE, 79EBH 
BE 


BC 

HL: 7839H 
$, (HL?) 
BIESH 


Warten, bis Textausgabe abgeschl. 
;7AAFH enthält Anzahl Zeichen im 
sim Print-Buffer; bei 8 = leer 


;1/0-Buffer löschen (Länge 64) 
;Bufferanfangs-Adresse 
Leerzeichen in A 

sin Buffer übertragen 
Bufferadresse + I 

‚Zähler - 1, wenn 8 - fertig! 

;ß in A 

‚Bufferende mit X’88’ kennzeichn. 


sZeilenstatus eraitteln 
;Folgezeile? 

;Spaltenzähler laden 

skeine Folgezeile! 

;bei Folgezeile eine Zeile addier. 
Spaltenzähler in BC übergeben 

iB dazu = 8 setzen 


iCursor-Pointer laden 

ı- Spalte = Zeilenanfang 
;1/0-Buffer-Adresse laden 
;Spaltenzähler merken 

‚vorh. Text aus Zeile in Buffer 
‚spaltenzähler wieder laden 
Flag 2 adressieren 

sINPUT-Cmd Flag setzen 

Zeile einlesen 


EEEIEE E HAE AEAEE EFE HE IEE FE FEIE IEE EAE MEAE FEIE AEAEE EEEE EEE 


RUN-Kommando fur autom. Start bei CRUN 


DEFM 
DEFB 


? RUN? 
8 


TEREI HEEE EAE AEA AEE AEE AEREA FE E AE AEE FE EIEEE AE AE AEE EEEE EE 


Drucker - Treiber 


LD 


Ast 
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‚auszugebendes Zeichen laden 


55E 
2539F 
0591 
0593 
8595 
8597 
8577 
059A 
239D 
2859F 
05A2 
9545 
D5AG 
A549 
O5AB 


25AD 
8588 
2581 
p583 
0584 
0537 


058D 
BSBE 
BöBr 
2563 


2564 
8565 
B5C8 


8509 
BSCA 
DICB 
Böch 
2508 
85Di 
2502 


8505 


B7 

28 33 

FE BB 

28 BA 

FE BC 

20 14 

ÀF 

DD B6 83 
28 BE 

DD 7E 83 
DD 96 84 
47 

CD E2 3A 
ið FB 

18 12 


CD B6 3A 
79 

FE 8D 

co 

DD 34 84 
DD 7E 84 
DD BE 83 
79 

ca 

DD 36 04 B8 
c9 


DB 88 
Eb 0i 
c9 


c3 

E3 

B6 84 

21 D2 7A 


23 
18 FC 


ci 


OR 
JR 
CP 
JR 


JR 
KÖR 
OR 
JR 
LD 
SUR 
LD 
CALL 
DINZ 
JR 


CALL 


À 

Z, 0504H 
OBH 
BSIFH 
BCH 

NZ, B5SADH 
A 

{IX+3) 
2,B5ADH 
Ás (IX+3) 
(IX+4) 

B 4 À 
JAEZH 
BSA6H 
BSBFH 


JAB6H 
Art 

DH 

NZ 
(IX+4) 
A, tIX+4) 
(IX+3) 
AC 

NZ 
(IX+4), 0 


A: (B) 
1 


;= leer? 

ja; nur Druckerstatus ermitteln 
}Seitenvorschub? 

‚ja - ausführen 

bedingter Seitenvorschub? 

‚nein! 

wird nur ausgeführt, wenn Anzahl 
‚Zeilen/Seite ungleich 8 ist 
;Sonst Ausgabe @t auf Drucker 
sZeilen/Seite 

;- Anzahl gedruckter Zeilen 

sin BR als Vorschubzähler 
‚Carriage-Return + Line Feed ausge. 
‚bis zur neuen Seite 


Zeichen ausgeben 

Zeichen nochmals laden 

war das ein CR? 

jnein, fertig 

Zeilenzähler im DCB + 1 

sam Anfang einer neuen Seite? 
ıtZeilenzähler - Zeilen/Seite) 
Zeichen wieder in A 

ikeine neue Seite - fertig 
Zeilenzähler = B 


‚Drucker-Status ermitteln 
‚nur BUSY wird gepruft 


FERRE HE AE AE E AEE EAE EIEEE AEE AE 1E EAE AEAEE EE EE EE EE EE 


4-Byte Druckpuffer für Grafikdruck löschen 


PUSH 
PUSH 
LD 
LD 
LD 
INC 
DINZ 
POP 
POP 


BC 

HL 

B4 

HL, 7ADZH 
(HL?) À 
HL 
B5DOH 
HL 

BC 


BC + HL retten 


‚Zähler = 4 

;Pufferadresse laden 

A in Puffer übertragen 
ıPufferadresse + Í 

Zähler -i = 8? ja - fertig! 
{Register wieder herstellen 


B5D6 C? RET 


RR ER EC 


Teil der Tastaturabfrage 

Behandelt das Betätigen einer zweiten Taste, bevor 
die erste losgelassen wurde (Rollover) 

Im Fiag i (7838H) werden die Bits 3 und 4 benutzt, um 
den Status der zwei Tastaturpuffer Bi (7836H) und 

B2 (78374) anzuzeigen. 


Bit4 Bits 
8 3 


Status 

Bi und BZ werden nicht gedrückt 
B 1 Bi gedrückt, B2 nicht gedrückt 
1 g Bi nicht gedrückt, B2 gedrückt 
l 1 Bi und B2 gedrückt 


2507 21 38 78 LD HL, 7838H ‚Flag 1 adressieren 
25DA CB 56 BIT 2, (HL) iFunktions-Flag gesetzt? 
050C 28 15 JR Z 05F3H ynein - weiter bei B5F3H 
350E 57 LD DA ;Tastencode sichern 

O5DF 3A 3A 78 LD Às {783AH)} Zeitwert laden 

05E? 37 OR A 8? 

SE Ber JR Z,@5F4H ija - weiter bei BSF4H 
B5E5 3 ING À jZeitwert + i 

ASES 32 3A 78 LD {7834H}, À zuruckspeichern 

25E9 FE 2A cP 42 Zeit abgelaufen? (ca. 0.84 sec) 
OSEB 28 82 JR I,85EFH jja! 

BSED AF XOR À Zeichen löschen 

B5EE (9 RET ‚und zuruck 

BSEF CB % RES Zu {HL) ;Funktions-Flag löschen 
Sri Ar XOR A Zeichen löschen 

B5f2 09 RET zurück 

e5F3 57 LD D,A ‚Zeichen in D sichern 
e5f4 21 38 78 LD HL, 7838H Flag 1 adressieren 
05F7 7E LD Às (HL) sin A laden 

B5F8 E6 18 AND 200i 1000B8 ‚Bits 3 und 4 testen 
BSFA 20 OB JR NZ, B687H Bit 3 und/oder Bit 4 gesetzt 
25FC CB DE SET 3, (HL) ‚Bit 3 setzen 

BSFE AF XOR À ;B2 löschen 

BSFF 32 37 78 LD {7837H),A 

BB2 7A LD AD Zeichen wieder laden 
0603 32 36 78 LD {7B36H),A sund in B! eintragen 
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Baló 


B642 


B643 
B647 


2648 
BbAE 
BhAF 
2651 
8653 


[9 


CE 66 

20 2A 

JA 36 78 
BA 

20 21 

ED 4B 42 78 
zà 44 78 
73 

CD 35 2F 
BA 

CA D7 2F 
FE 88 

CA D7 2F 
21 38 78 
CR DE 

CR Eb 

CB 96 

32 37 78 
c9 


7A 
18 Fo “ 


JA 36 78 


28 08 

3A 37 78 
BA 

28 02 

AF 

c9 


ED 4B 42 78 
2A 44 78 
TB 

cD 35 2F 

BA 

28 85 

FE B8 

c2 D7 2F 


RET 


Taste wurde gehalten 


BIT 
JP 
LD 
CP 
JR 
LD 
LD 
LD 
CALL 
CP 
JP 
CP 
JP 
LD 
SET 
SET 
RES 
LD 
RET 


LD 
JR 


åy (HL) 

NZ» B635H 
As (7836H) 
D 

NZ, 0632H 
BC, (7842H) 
Hi, 178444) 
A E 

ZF35R 

D 

Z, ¿FD7H 

8 

2, 2FD7H 
HL, 7838H 
J, HL?) 

4 (HL) 

Zu (HL) 
{7837H),A 


AD 
B625H 


nur eine Taste gedruckt - fertig! 


sbereits zwei Tasten im Puffer? 
ija! 

Zeichen aus Bl lader 

$= gedruckte Taste? 

jnein, eine neue 
ıZeilen-/Spaltenzähler laden 
Matrixadresse laden 

‚Inhalt der Matrixzeile 
jrestliche Tasten prufen 
igieiche wie vorher? 

ja, zur Zeichenwiederholung 
jkeine weitere? 

iJa,; zur Zeichenwiederholung 
‚Flag I adressieren 

‚Beide Statusbits 3+4 setzen 


ıFunktions-Flag rucksetzen 
sZeichen in BZ 
sund zuruck 


neuen Tastencode in A 
sin B2 eintragen 


Zwei Tasten bereits registriert 


LD 
cP 
JR 
LD 
CP 
JR 
XOR 
RET 


LD 
LD 
LD 
CALL 
cP 
JR 
cP 
JP 


ÀA, {7836H} 
D 

Z: 0643H 
Às (7837H) 
D 

Z, 0643H 
À 


BC, (7842H) 
HL, (7844H) 
AE 

2F 35H 

D 

Z, 0656H 

8 
NZ,2FD7H 
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Zeichen aus Bi laden 
;= neuer Tastencode? 
jja: 

;Zeichen aus BZ laden 
;= neuer Tastencode? 
ija! 

;3 Tasten - igitt 
tzuruck ait A = 8 


;Zeilen-/Spaltenzähler laden 
iMatrixadresse laden 

iInhalt der Matrixzeile laden 
Matrix weiter durchsuchen 
gleiche Taste? 

jja! 

jkeine weitere Taste? 

ija - zur Zeichenwiederholung 


8656 
8659 
B65B 
2650 
B6hR 
Bbb1 
A663 
0664 
2667 


D668 
B6hR 
BAGE 


0674 
06735 
8676 
8679 
Bart 
B67F 
9681 
8682 
BABI 
2685 
8687 


2688 


B691 
0694 
8697 
069A 
869D 


21 38 78 
CB DE 

CB Ab 

A 36 78 
BA 

20 05 

AF 

32 37 78 
c9 


JA 37 78 
32 36 78 
18 F3 


21 88 48 
CD As Bh 
21 88 68 
CD A4 Bo 
21 80 88 
CD A4 Bo 


LD 
SET 
RES 
LD 
CP 
JR 
XOR 
LD 
RET 


LD 
LD 
JR 


HL, 7838H 
3, (HL) 

d iHL) 

Å, (7836H) 
D 

NZ, B668H 
A 
(78374) ,A 


Ay (78374) 
(78364), A 
B663H 


‚Flag i adressieren 
‚Statusflag für Bi setzen 
;Statusflag für B2 löschen 
Zeichen aus BI laden 

;= eingegebenes Zeichen? 
nein! 

;B2 löschen 


zurück 
BZ nach Bi übertragen 


382 löschen 


RR 


BASIC - Initialisierung Teil I 


INC 
DJNZ 
JR 


HL, BAD2H 
DE, 7806H 
BC, 36H 


À 

Å 

NZ, B676H 
B, 39 
(DE) À 
DE 
0687H 
0075H 


stängt gut an 
;ROM 6D2 - 787 in 
RAM 7808 - 7835 
jubertragen 

‚das ganze 128% 


idie nächsten 39 Bytes löschen 
‚(7836 - 7850) 


szur BASIC - Initialisierung T. 2 


EEIEIE REEE EIE FE HE AEAEE EAEE FEAE AEAEE IE AE AEAEE EE EEEE EEE 


BASIC - Initialisierung Teil 3 


prufen, ob ROM-Kassette vorhanden 


HL, ABOH 
B6A4H 
HL, 6BOBH 
BAGH 
HL, BEBEH 
BASH ` 


sl. Möglichkeit bei 4000H 
dort prüfen 

2. Möglichkeit bei &BBOH 
jprufen 

$J. Möglichkeit bei BALOH 
iPrufen 


BAG 
B6Al 


BbAd 
Bbhb 
06A? 
DAB 
BAA9 
DOAA 
AGAB 
B6AC 
B6AD 
Q6AF 
DEBB 
B6B 
B6B2 
B6B3 
B6B& 
B6B5 
B6R6 
B4B7 


BACE 
Back 


B6D2 
86D5 
8608 
26DB 


FB 
63 17 1A 


JE AA 


SURARHSSANBER 


m 


SH 


FB 
E9 


Bi 18 1A 
(3 AE 19 


3% 1 
c3 78 iD 
3 98 ic 
3923 
C9 oB 80 
c? 9 08 
FB 

98 


ði 
F4 Æ 
20 00 08 


Ei skein Einschub - Interrupts ein 


JP 1A1IH szur BASIC - Hauptschleife 

LD Ar BAAH sROM-Einschub muß mit der 

CP (HL) ıBytefolge AA 55 E7 18 beginnen 
INC HL nächstes Byte 

RET NZ war schon nichts 

CPL ı2. Wert (55) bilden 

CP (HL) sgleich? 

INC HL jnachstes Byte 

RET NZ ungleich! 

LD A,BE7H 13. Wert = E7 

CP {HL) stimmt der? 

INC HL nächstes Byte 

RET NZ nein, auch nicht 

CPL ;4. Wert (18) bilden 

CP (HL) ‚stimmt dieser auch? 

INC HL ‚nächstes Byte 

RET NZ nein - kein Einschub 

EI ;Interrupts einschalten 

JP (HL) ;ROM-Einschub anspringen 

LD BC, 1A1BH Adresse der Hauptschleife laden 
JP 19AEH sBASIC-Variablen und Pointer init. 


HEE EE AE AE de EAE 1HE dE FE FEE AE AE AE E E 


Der folgende Bereich von 402 bis 787 wird 
in den RAM-Bereich von 7B08 bis 7835 übertragen 


Restart-Vektoren 

JP 1C9AH ıRST 8H (Vergleich I Zeichen) 
JP 1078H SRST 10H (Nächster Zeichen) 
JP 1C98H ;RST 18H (Vergleich HL/DE) 
JP 25D9H ıRST 20H (Datentup testen) 
RET ;RST 28H 

RET ıRST 38H 

EI SRST 38H (Interrupt?) 

RET 

Tastatur - Device-Control-Block 

DEFB 1 ;DEB-Typ 

DEFH ZEF4H jAdresse des Treibers 
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BAEF 


BoFg 
BAF? 
BEF 4 


B6F7 


8785 
8787 


8788 


070E 
070E 


8718 


4R 49 


oa gg 
2 70 
2A 2a og 


B 
BD 85 
43 

59 52 


C3 88 58 
7 8 88 


JE 20 
c9 


21 88 13 


cD C2 09 
18 8 


CD C2 09 


DEFM ° KP 


Bildschirm - Device-Control-Block 
bis auf die Cursor-Adresse nicht benutzt. 


DEFE 8 ;DCB-Typ (unbekannt) 
DEE 8 von SET, RESET u. POINT benutzt, 
DEF  70BOH sCursor-Adresspointer 


Drucker - Device-Control-Block 


DEFB 6 ıDCB-Typ 

DEFW  B5BDH }Treiber-Adresse 

DEFE Oo 67 sZeilen/Seite + 

DEFB 8 sZeilenzähler 

DEFM ‘PR 

JP SOOGH jnicht benutzt 

RST 8 jnicht benutzt 

LD ÀB sAnsprung bei falschem DCB-Typ 
RET sin der DCB-Aufrufroutine 


FEEFEE IE AE IEE HEE IE AE AE FE FE IE FE E AAE EHE R HEEE RE EEEE E 
Addition und Subtraktion mit einfacher Genauigkeit 


Verschiedene Ansprungpunkte entspr. der geforderten 
Funktion. 
Eing.: X = Summand bzw. Subtrahend 
HL bzw. Y Summand bzw. Minuend 
Ausg.: X = Summe bzw. Differenz 


\=X +85 
LD HL, 1380H Adresse der Konstante 8.5 
X = Konstante + X 

CALL  BICZH ;Konstante nach Y laden 
JR B7i6H ‚Sprung zur Addition 


X = Konstante - X 
CALL  BOC2H Konstante nach Y 


iX 


2713 CD 82 09 CALL 8952H X= -X 

X=Y+X 
0716 78 LD AyB Y=-9 (Ep. Y=8 
8717 B7 ÜR A 
0718 c8 RET Z iJa, fertig 
0719 3A 24 79 LD Å, (7924H) 3X = 0? (Exp. X = 8) 
Brit B7 OR A 
271D CA B4 09 JP 2, 89B4H ida, fertig, X=Y 
a720 9% SUB B iExp. X - Exp. Yin A 

Exp. Y <= Exp. X? 
0721 WA JR NC, 072FH iJa 
0723 2F CPL iExp.Diff negieren 
0724 3c INC À 3X mit Y vertauschen 
0725 EB EX DE, HL LSB Y sichern 
0726 CD As 09 CALL  BIA4H sX auf Stack bringen 
8729 EB EX DE, HL iL5B Y wiederherstellen 
872A CD BA 89 CALL B9B4 iY nach X übertragen 
072D ci POP BC ‘Stack nach Y laden 
872Æ Di POP DE 
872 FE 19 cP 25 Exp. Diff > Mantisse (24 Bits) 
8731 DƏ RET NC ;Nein, X = X, fertig 
0732 F5 PUSH AF Exp. Diff. sichern 
2733 CD DF 09 CALL  B9DFH ;Vorzeichen-Bits = 1 setzen. 
;A(7) = 1 wenn gleiche Vorzeichen 
;AI7) = 8 bei ungleichen Vorzeichen 

8736 67 LD HA ;Vorzeichen-Flag sichern 
2737 A POP AF Exp. Differenz zurūckladen 
0738 cD D7 87 CALL  87D7H iY um diese Differenz rechts schieben 
0738 B4 OR H ‚Vorzeichen gleich? 
8736 21 21 79 LD H., 79Z1H LSB X-Adresse in HL 
073F F2 5487 JP P, 0754H Nein, subtrahieren 

Addition der Mantissen 
8742 CD B7 97 CAL  87B7H ;Mantissen addieren 
8745 D2 95 87 JP NC, 8796H über lauf? Nein=Sprung 
0748 23 INC HL iZeiger auf Exp. X 
B749 34 INC tHL) iExp. X +1 
B74A CAB2 07 JP Z,87BZH süberlauf? Ja=sOV-Error 
0740) 2EM LD L;i }Mantisse von X um í Bit 
8674F CD EB 07 CALL  87EBH jrechts schieben 


0752 18 42 JR 8796H ‚fertig! 


8754 
0755 
8756 
8757 
1758 
8759 
075A 
0758 
8756 
875D 
875E 
B75f 
0768 
0761 
8762 


8765 
8765 
8767 
8768 
8769 
076A 
2768 
876D 
076E 
B76F 
8778 
8771 
8772 
8774 
8776 


8778 
8779 
877C 


877D 


AF 
er 
47 
TE 
9B 
5f 
23 
TE 
JA 
57 
23 
TE 
9 
AF 
De (3 07 


63 


47 
79 
B7 
20 18 


54 
65 


78 
FE EB 
z0 F0 


AF 
32 24 79 
c9 


Subtraktion der Mantissen 


XOR 
SUB 
iD 
LD 
SBC 
LD 
ING 
LD 
SEC 
LD 
INC 
LD 
SBC 
LD 
CALL 


À Mant. Y - Mant. X nach Mant. Y 
B jniederw. Byte (durch Schieben entst.) 
BA Ergebnis 

A, (HL) +L5B-Subtraktion 

ÀE 

EA 

HL ‚nächstes Byte 

A (HL? ‚subtrahieren 

AD 

DÀ 

HL ;MSB subtrahieren 

À, (HKL?) 

Art 

GA f iUnterlauf? 

C 07CIH Wa! Mant. Y negieren 


}Vorzeichen-Flag invertieren 


TRÄNEN 


Normalisieren 

LD LB Erg. Mant. von CDEB nach CDHL 
LD HE 

XOR À Schiebezähler = ® 

LD BA 

LD Ast ıMSB Y = 8? 

OR À 

JR NZ, 0785H snein 

LD CD ıY um 1 Byte Links schieben 

iD D,H ;H nach D 

LD HL sL nach H 

LD L,A iL=8 

LD ÁB ;Schiebezähler - 8 

SUB 8 

cP BEH 132 Linksschiebungen? (Zahi = B) 
JR NZ, 0768H jnein! 

Reelle Zahl = 8 setzen 

XOR A iExponent in X = 8 

LD (79244) ,A idh. X = 

RET 


2. Teil der Normalisierung 


DEC 


B iSchiebezähler - I 
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877E 
8077F 
a780 
BrBl 
0782 
8783 
8784 
8785 
2788 
8789 
078A 
9788 
a78 
079E 
8791 
8792 
8793 
8795 
8796 
8797 
079A 
8798 


079F 
07A8 
B7Al 
B7A3 
B7AA 
B7AS 


B7AB 
8749 
B7AA 
B7AB 
BTAC 
D7AD 
074E 
87B8 
873i 


29 
7A 

17 

57 

7 

SF 

ar 

F2 7D 87 
78 

5¢ 

45 

B7 

28 88 

21 24 79 


ic 


14 


ac 


BE 58 


ADD HLs Hi scDHL ein Bıt links (HL # 2) 

LD ÂD D#2 

RLA 

iD DA 

LD ÀC :C*2 

ADC Ara 

LD GA 3 ‚höchstes Bit Y gesetzt? 

Jf P,877DH jnein, weiter 

LD Ay ;Schiebezähler nach A 

LD EH ;CDHL wieder nach CDER 

LD bL 

OR À ikeine Verschiebung? 

JR 2,8796H Ja 

LD HL, 7924H Adresse X-Exponent 

ADD A, HL) Exp. X + Anzahl Verschiebungen 
LD (HL) A ‚= Exp. X. Unterlauf? 

JR NC: 8778H ija! X=0 und zurúūck 

RET Z Anzahl Verschieb. = Exp. X? zuruck! 
LD ÀB sLSB Y laden 

LD KL, 7924H Adresse X-Exponent 

OR À sL5R Y(7) = 9? 

CALL  M,B7ABH ;Nein - Y runden 

LD B, (HL) iExp. X nach Exp. Y 

INC HL Vorzeichen Flag 

LD Ar (HL) laden 

AND BH Vorzeichen ausblenden 

XOR c ‚Mit M5B Y verknüpfen (invertieren) 
LD CA sund zurück nach MSB Y 

JP B9B4H iY nach X als Ergebnis 


RITA IHRE 


Runden 

INC E LSB Y +í 

RET NZ i= 87, nein-fertig 
INC D in.ByteY+i 

RET NZ i= 87, nein-fertig 
INC c MSB Y +i 

RET NZ i= B?, nein-fertig 
LD C, 88H ja, MSB Y = BOH 
INC (HL) Exponent X + i 
RET NZ ‚= 9°, nein-zuruck 
(WERFLOW-Error 


u 


B782 1E BA 
B7B4 (3 A219 
8787 7E 
0738 83 
8789 5F 
07BA 23 
@7BB 7E 
B7BC 8A 
B7BD 57 
BTBE 23 
B7BF 7E 
0708 89 
B7Ci AF 
B7C2 69 
0763 21 2579 
07C TE 
07 F 
B7C8 77 
8709 AF 
BICA 6F 
Br 9% 
BIC 47 
@7cD 7D 
07E 9B 
aF 5F 
6700 7D 
07D1 9A 
8702 57 
8703 7D 
87D 99 
87D5 AF 


LD E,18 Fehlernumser in E 
JP 19A2H zur Fehlerrautine 


RT AEE EEEE EEE EE EE e 


Mantissen-Addition einfacher Genauigkeit 
Eing.: Mantisse X = Summand 

Mantisse Y = Summand 

HL = Adresse LSB X 
Ausg,.: Mantisse Y = Summe 


LD Ás (HL) LSB X in A 
ADD A E it LSB Y 

LD EA Summe in LSB Y 
INC HL sX-Adresse + | 
LD Ar (HL?) jnächstes Byte addieren 
ADC ÀD 

LD D,A 

INC HL iHL = MSB X 

LD Às (HL) »MSB X + MSB Y 
ADC Art 

LD GA sin MSB Y 

RET 


FEFE IEEE AE EE HAE AERE PEIEE E AEE EAE EAE FE E AE AEE FEAE AEE EEE EE E 


Mantisse Y negieren 


LD HL, 7925H Vorzeichen-Flag invertieren 
LD Ar (HL) 
CPL 
LD (HL) A 
XOR À A=8 
LD LA L8 
SUB B sLSB Y = 8 - LSB Y 
LD B,A 
LD Al A=8 
SBC AE in. Byte Y = B - n.Byte Y 
LD EA 
LD ÀL A=8 
SBC ÀD in. Byte Y = B - n. Byte Y 
LD DA 
LD Ar ıA=B 
u: At JMSB Y = 0 - MSB Y 
LD CÀ 


8706 


8707 
8709 
B7DB 
@7DD 
B7DE 


B7E8 
B7E2 


B7EA 
B7E& 
07E7 
B7EB 
8789 
B7EA 
BTEB 
BTEC 
B7ED 
BTEE 
BIEF 
oF 
O7F1 
B7r2 
B7F3 
B7F4 
B7F5 
87F6 


@7F8 


c? 


0a B B 8i 


RET 


EREEREER EE E H EAEE E de E EA E dE E e E E Ee d dée EE 


Zahl einfacher Genauigkeit nach rechts schieben 
Eing.: Y = Zahl 

A = Anzahl Verschiebungen 
Ausg.: Y = Ergebnis 

B = zus. niederwertiges Byte 


LD B8 LSB des Ergebnisses = 8 

SUB 8 ;8 oder mehr Stellen schieben? 
JR C B7E4H snein! 

LD B,E ıY um ein Byte nach rechts 

LD E,D 

LD D;C 

LD C0 

JR 87D9H 

ADD Ås? sAnzahl Verschiebungen + 1 in L 
LD LÀ 

XOR A Carry löschen 

DEC L ;Schiebzähler - 1 

RET Z i= 0? ja-fertig 

LD Ast MSB Y ein Bit nach rechts 
RRA 

LD CÀ 

LD AD $n. Byte Y ein Bit nach rechts 
RRA 

LD D,A 

LD ÀE in.Byte Y ein Bit nach rechts 
RRA 

LD EA 

LD A,B ;LSB Y ein Bit nach rechts 
RRA 

LD BA 

JR 07E7H weiter 


FEE IEEE IE IEEE EREHE EE EHEHE HEHE E 


Konstanten 


a. 
H 
pa 


für LOG - Funktion 
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BIFE 
B7FD 
8821 
2805 


80909 
esac 
a300 
8818 
B8i3 
2814 
2817 
BBiA 
BBiR 
BBit 
281D 
281E 


O91F 
0822 
0823 
8824 
0825 
0828 
0828 


082E 
3831 


83 

AA 56 19 88 
Fi 22 76 88 
45 AA 38 82 


cD 55 29 


EA 4A IE 
2124 79 


ði 35 88 
11 F3 8% 
Ja 
F5 
70 
D5 
c5 


CD 16 87 
Ci 
Di 
84 
CD A2 08 
21 F8 07 
cD 10 07 


21 FC 07 
CD 9A 14 


Bi 80 88 
11 80 28 
cD 15 87 
Fi 

CD 89 ØF 


Anzahl Konstanten = 3 
= 8.598979 
‚= 8.961471 
= 2.88539 


EAEE EAEE E A HE EIEEE dE E EEE EE E EEEE t 


LOG - Funktion 


Berechnet den natürlichen Logarithmus 
Eing.: X = Argument 
Ausg.: X = Ergebnis 


CALL 8955H 

ÖR À 

JP PE, 1E4AH 
LD HL, 7924H 
LD As (HL) 
LD BC, 8035H 
LD DE,BAFSH 
SUB B 

PUSH AF 

LD (HL); B 
PUSH DE 

PUSH BC 

X = (Arg - SORI2I/2) / 
tAL  B716H 
POP BC 

Püp DE 

ING R 

CALL  BEAZH 

LD HL,B7FEH 
CALL 0710H 


Reihe berechnen 


LD HL, B7FCH 
CALL  149AH 
LD BC, SABOH 
LD DE, 0 
CALL 0716H 
POP AF 

CALL  BF89H 

X = X #06 (2) 


Argument <= 07 


1Ja,s Function-Code Error 
Exponent d. Arguments in A 


iY = 8.707092 


söffset Exp X in A 
sichern 

Ep. X= 0 

;Y auf Stack 


{Arg + S0R(2)/2) 
3X = X + 0.707092 
3Y wieder mit Konstante laden 


Exp. Y+ 1 (Y= S50R(2)) 

3X = SOR(2) / X 

Adresse der Konstante 1 laden 
=i- 


iAdresse der 1. Reihenkonstante 
Reihe berechnen 
jY = -0.5 

=X-05 


X 
, 
Exp. d. Arguments 
X=sirä 


BB41 
2844 


2847 
Ba4A 
284R 
284D 


2851 
0854 
8855 
0858 
8959 
085c 
2850 


8875 
8877 
287A 
2878 
287C 
887D 


2881 


ĝi 31 88 
1118 72 


cD 55 89 
c8 

2E 08 

CD 14 89 
79 

32 4 79 
EB 

2258 77 
Bi 020 28 
50 

58 

21 65 07 


38 BB 
E5 
2A 58 79 


LD BC, 8O3iH 
LD DE, 7218H 


iY = LOGI) ca. 8.693147 


EEKKRREEREKEREREHRREEREREEEEREREEE EAEE 


Multiplikation mit einfacher Genauigkeit 


KSXHY 

CALL 0955H 
RET 2 

LD L8 

CALL 0914H 

LD Asc 

LD (794FH) A 
EX DE, HL 

LD (7750H), À 
LD BC,8 

LD D,B 

LD EB 

LD HL,8765H 
PUSH HL 

LD HL , 0869H 
PUSH HL 

PUSH HL 

LD HL, 7921H 
LD A, (HL) 
INC HL 

OR À 

JR 2, 0892H 
PUSH HL 

LD L,8 

RRA 

LD HA 

LD ÀC 

JR NC,BBBIH 
PUSH HL 

LD HL, (7950H) 
ADD HL, DE 

EX DE, HL 
POP HL 

LD Às (794FH) 
ADC At 

RRA 
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x= 0? 

1Ja, fertig 

Flag für Exp. verarbeitung 
‚Exponenten u. Vorzeichen verarb. 
ıMantisse aus Y nach 79AFH .... 
¡MSB 

LSB 


iY = Erg.register löschen 


sUntersch. Rucksprungadressen fur 
53 Durchiäufe auf Stack 

inach 3. Durchl. zur Normalisierung 
‚nach i. u. 2. Durchlauf 
wiederholen 


jAdresse L5B X laden 

LSB X in A 

‚nächstes X-Byte adressieren 
sInhalt =8 ? 

ja, Ergebnis I Byte rechts schieb. 
sAdresspointer sichern 
‚Bitzähler = 8 

Ein Bit in Carry schieben 

sA in H sichern 

ıMSB des Ergebnisses laden 

‚Bit in Carry = 1 ? 

ja! - HL retten 

LSB 2.Faktor laden 

ı+ Ergebnis-L5B 

sin LSB Y 

;HL wieder laden 

ıMSB 2.Faktor laden 

i+ Ergebnis-MSB 

Ergebnis 1 Bit rechts schieben 


8882 
8383 
8084 


0894 


2D 


43 
5A 
3 


(I 


CD A4 B9 
21 D8 8D 
CD Bi 89 


Di 
CD 55 09 
CA 9A 19 
2E FF 
CD 14 09 


2B 


32 89 78 
2B 


LD GA ıMSB 

LD AD in. Byte 

RRA 

LD D,A 

LD Å E in. Byte 

RRA 

LD EA 

LD AB LSB 

RRA 

LD BA 

DEC L sBitzähler - i 

LD ÀH ıX-Byte wieder laden 

JR NZ,BB7IH ‚Bitzähler = 8, nein-zurück 

POP HL sja ~ X-Byteadresse laden 
weiter 

LD BE ‚Ergebnis 1 Byte nach rechts. B = E 

LD E,D =D 

LD D;C D=cC 

LD GA s= 

RET 


FEIE IE AE EEE HE FEE AEA EAE AEE AERE MEAE E BE AE BEE FEAE EAEE BEEE EEE 


Division mit einfacher Genauigkeit 


X=X/10 

CALL  BIAAH ‚wert in X auf Stack retten 

LD HL, BDDEH Konstante iß adressieren 

CALL  BIBIH sin X übertragen 

POP BC sehem. X-Wert in Y laden 

POP DE 

X=Y/X 

CALL  B955H Divisor = 8 ? 

JP 2, 199AH iJa, DIVISION BY ZERO - Fehler 
LD Ls BFFH Flag Expon.verarb. für Division 
CALL  B914H jExponenten und Vorzeichen verarb. 
INC (HL? Exponenten-Ergebnis korrigieren 
INC (HL) it 2 (0914 = Exp.Y - Exp. X - 1) 
DEC HL ;HL auf MSB X 

LD As (HL) iX in Divisions-UP {ab 7840H) 
LD (78894) ,A MSB 

DEC HL 


8885 


8889 
EBA 
BOBR 
BOBE 
BaRr 
gece 
gaci 
B8C2 
B8C3 
OBEA 
8867 
B8CB 
8369 
OBCA 
ascD 
B8cF 
2808 
8802 
8805 
8806 
8807 
8808 


8309 
OBDA 
28DB 


BaDD 


TE 
285 78 
ZB 
7E 
J 91 78 
4 
ER 
AF 
ur 
57 
IF 
32 86 78 
E5 
c3 
7D 
CD 88 78 
DE 28 
JF 
30 07 
32 8C 78 
Fi 
Fi 
37 
D2 


Di 
El 
79 
sc 
3D 
iF 
FA 97 87 
17 
7B 
17 
SF 


LÜ 
LD 
DEC 
LD 
LD 
LD 
EX 
XOR 


LD 
LD 
LD 
PUSH 
PUSH 
LD 
CALL 
SBC 
CCF 


LD 

POP 
POP 
SCF 


POP 
POP 
LD 
INC 
DEC 
RRA 
JP 
RLA 
LD 
RLA 
LD 
LD 
RLA 
LD 


RLA 
LD 
ADD 
LD 


A (HL) 
{7885H}, À 
HL 

A, (HL) 
(78814) ,A 
Rt 

DE,HL 

å 

A 

D, À 

EA 
{788CH) ,A 
HL 

BC 

Art 

7888H 
A,d 


NC, 0809H 
(788CH), A 


M, 8797H 
Ar 


EyA 
AD 


D,A 
Arc 


GA 
HL, HL 
AB 


-4j - 


in, Ayte 


LSR 
5Y nach BHL ubertragen (Divident) 


1Y = B ifur Quotient) 


JMSB Divisor = 8 (fur Schieben) 
Divident auf Stack 


;L58 Divident iaden 

Divident - Divisor 

MSE Divident = übertrag,Unterlauf”? 
sCarry komplementieren 

ija - Subtr. zurück, B in Quotient 
¡MSB Divident in UP 

Divident vom Stack entfernen 


‚tarry-Flag setzen (1 in Quotient) 
sJP NC,„BEICIHH wird nie ausgeführt. 
jzum überspringen der folg. 2 POPs 
;Divident vor Stack holen 

j= Subtraktion rückgängig machen 
MSB d. Quotienten in A 

Bit 7 testen 


sletztes Bit fur Rundung in Bit 7 
swar Bit 7 bei ING/DEC=1, ja-fertig 
Quotient 1 Bit nach links 
jErgebnisbit (@ o. 1) wird 

aus dem Carry-Bit eingeschoben 


iDivident # 2 


OBEE 
BEF 
BF 
28F3 
Bora 
u8F7 
BOFB 
B8F9 
POFA 
BBFC 
ROFD 
2728 
2781 
0702 
2704 


17 
47 
JA 8C 78 
17 
32 8C 78 
79 


E5 

21 24 79 
35 

Ei 

20 63 

C3 B2 87 


RLA 
LD 
LD 
RLA 
iD 
LD 
OR 
OR 
JR 
PUSH 
LD 
DEC 
POP 
JR 
JP 


BA 
Às i 788CH} 


(78804), A 
Ast 

D 

E 

NZ, BBC7H 
HL 

HL, 7924H 
(HL) 

HL 

NZ ,BBC7H 
B7R2H 


- ih - 


;= MSB Divident 


‚ist das Ergebnis noch 87 


‚nein - weiter 

Divident LSR retten 

Quotient Exponent adressieren 

1 

‚Divident LSB wieder laden 
Quotient Exp. ungleich 8 - weiter 
;Exponent = 8, OVERFLOW - Error 


8907 
8909 


20A 
2908 
BIBE 
PWF 
2918 
8911 
8912 


8914 
8915 
0916 
0718 
8919 
Brit 


B71D 
BIE 
BIF 
0720 
8921 
0922 
2925 


0928 
2728 
092E 
0972F 
8758 


8731 


JE FF 
ZE 


AF 

21 20 79 
4E 

23 

AE 

47 

2E 88 


78 

87 

28 1F 

7D 

zi 24 79 
AE 


gë 

47 

IF 

AB 

78 

F2 36 89 
Co 88 

17 

CA 99 B8 
CD DF 89 
7 
2B 
c? 


cD 55 09 


ERARKEERERKEKEEEREEEEEERE EEEE RE 


Verarbeiten der Exponenten und Vorzeichen für 
Multiplikation und Division 


Einsprung: Division, doppelte Genauigkeit 


LD A,BFFH Flag fur Divison setzen 

DEFB ZEH iLD L,BAFH zum überspringen des X0R 
Einsprung: Multiplikation, doppelte Genauigkeit 

XOR A Flag für Multiplikation setzen 

LD HL, 792DH ıMSR Y adressieren 

LD C (HL) Worzeichen Y in C 

INC HL IHL auf Exponent X 

KÖR {HL) mit dem Flag verknüpfen 

LD BA Mult: B=Exp,Y Div: B=-Exp. Y-i 

LD L8 Fiag inL=8 


Einsprung: Multiplikation, einfache Genauigkeit (L=B) 
Division, einfache Genauigkeit {L=FF) 


LD AB Exponent Y laden 

ÖR À i0? (dh Y= 8) 

JR 1,8937H ija, sofort ins Hauptprag. zurück 
LD Al Flag laden 

LD HL, 79244 Exp. X adressieren 

XOR (HL) mit Flag verknüpfen, d.h. bei 


‚Division einf. Genauigk. Exp. X-1 
‚sonst unverändert. 


ADD AR yt Exponent Y 

LD },A Summe nach Exponent Y 

RRA ;über- oder Unterlauf? 

XOR B 

LD A, ıneuen Exponent Y laden 

JP P. 0936H sUnter-/über lauf 

ADD A, BOH ‚offset addieren 

LD (HL), A sund als neuen Exponenten X speich. 
JP Z, 0890H ‚= 07 ja-zum Hauptprograms zurück 
CALL  BIDFH Vorzeichen verarbeiten 

iD (HL) À sin Zwischenspeicher (7925H) 

DEC HL Exponent X adressieren 

RET 


Exponenten über-/Unterlauf 
CALL 2955H Vorzeichen von X testen 
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8734 
8935 


8736 
2937 


8938 
8738 


893E 
8741 
2942 
8943 
0744 
0945 
9949 
BI4A 
894D 
8758 
8951 
8952 


8955 


B7 
Ei 


F2 78 07 
63 B2 07 


cD BF 89 
78 

87 

{8 

Cb 82 

DA B2 97 
47 

CD 16 87 
21 24 79 
34 

ca 

C3 B2 07 


JA 24 79 
B7 
cB 
3A 23 79 


EPL 
POP 


OR 
PüPp 


JP 
JP 


Ergebnis komplementieren 


HL Rucksprungadr. vom Stack entfernen 
sdirekt in Ausdrucksanalyse zurück 

å war es ein Unterlauf? 

HL ‚noch eine Rsp-Adresse vom Stack 
;d.h. sofort ins Hauptprograme zur. 

P,8778H sUnterlauf, X=8, RET 

87B2H sOVERFLOW-Error 


EHIE IERE RE HE FE E IEEE IEE d HE AE A AE AE AE IE AE AE AEAEE E E E E E 


Multiplikation einfacher Genauigkeit mit 10 


X=X*iß 

CALL  BOBFH ‚X in Y übertragen 

LD Aa ‚Wert = 8? (Exp. Y=B) 

OR Å | 

RET Z jJa, fertig 

ADD Asz Exp. Y + 2, d.h. Y= Wert #ġ 
JP Cy 07B2H ibei überlauf OVERFLOW-Error 
LD BA ;Exponent zurück in Y 

CALL  B7I6H A=XtY, dh. X = Wert #5 
LD HL, 7924H Exponent X + Í 

INC (HL) sd.h. X = Wert + i0 

RET NZ ;überlauf? nein-zurück 

JP B7B2H ija - OVERFLOW-Error 


FEIE FERE IE IE AE EAEE FE- AEE FE EAE AE FE IE IE AEAEE FEE dE E EAE EEE Eé E 


Test einer reellen Zahl 
Eing.: X = Zahl feinfache o. doppelte Genauigkeit) 
Ausg.: wenn X < 8, A=FF CY=i S=1 


LD 
OR 
RET 
LD 
DEFB 
CPL 
RLA 
SBC 
RET 
ING 


wenn X = B, A=BB Z=i P=i 


wenn X > B, A=Bi 

Às (7924H) ;Exponent X laden 

A ®’OAX=B 

Z 13a! 

A 179234) MSB X laden 

BFEH ICP ZF - Dummy-Befehl, elim. CPL 


JA konplentieren (sep.Einsprung) 
‚Vorzeichen X in Carry schieben 


AA sA = B - Carry 
NZ _ X > B? nein - fertig 
G ijas A= 1 setzen 


- u - 


8963 


8964 
2966 
2969 
B96C 
896D 
096E 
8978 
8971 
8973 
2974 


8977 
097A 


8978 
B97C 
8097F 


c9 


06 8B 
11 00 08 
21 24 79 
aF 

7 

2 BD 
23 

% 8 

17 

c3 62 07 


cD 94 09 
Fo 


E7 
FA 5B 0C 
CA Fb BA 


21 23 79 
TE 

EE 88 

77 

c9 


RET 


KREIEN Ei EA eE dE E H IEE dE E E AEE EAE dE de dE E E EE ee eE 


B-Bit-Zahl mit Vorzeichen in Zahl einfacher 
Genauigkeit umwandeln 

Eing.! A = Zahl 

Ausg.: X = Zahl in einf. Genauigkeit 


LD B, 88H ;Exponent des Ergebnisses in B 

LD DE,d ifur Normalisierung löschen 

LD HL, 7924H Adresse Exponent in X 

iD GA junzuwandelnde Zahl in C 

LD (HL); B ;Exponent nach X ubertragen 

iD 8,8 ;B=B fur Normalisierung 

INC HL ‚Adresse Vorzeichenbyte in X (MSB) 
LD (HL), 80H Worzeichen = '-" setzen 

RLA ıVorz. der umzuw. Zahl ins Carry 
JP 8762H izur Normalisierung 


IRRE 


ABS - Funktion 

Absolutwert einer Zahl bilden 
Eing.: X = Zahl 

Ausg.! X = Absolutwert der Zahl 
CALL  B994H >87? 
RET P sja, tertig 


Zahl in X invertieren 


RST 20H Tup X prufen 

JP MaC5BH , Integer? ja - weiter bei C5B 

JP Z,BAF&GH ‚String? ja - TYPE MISMATCH Error 
Reele Zahl in X invertieren 

LD HL, 7923H ıMSB X adressieren 

LD Às (HL) sund laden 

XOR BBH Vorzeichen invertieren 

LD (HL) À ;MSB X zuruckschreiben 

RET 


RITTER 


SGN - Funktion 
Eing.: X = Zahl 


- 45 u 


078A 


898D 
298E 
BIBF 
278 
8991 


87994 
2995 
2998 


8978 
899 


BIAB 
BIAL 
0982 


09A4 
B9A5 
8948 
89A9 
BIAA 
BIAD 
QAE 
BIAF 
09788 


898i 


CD 94 89 


17 


6&7 
C3 9A BA 


E7 
CA Fó BA 
F2 55 09 


2A 21 79 
% 

B5 

8 

7C 

18 BB 


EB 
ea 21 79 
E3 
E5 
2A ż3 79 
E3 
£5 
ER 
9 


cD C2 89 


Àusg. i X 
X 
X 


CALL 0994H 


8, wenn Zahl = 8 
i, wenn Zahl positiv 
-1, wenn Zahl negativ 


iX testen 


A in 16-Bit Integer umwandeln {mit Vorzeichen) 


LD LA 
RLA 

SBC AA 
LD HA 
JF BAIA 


Alle numerischen Typen 
RST 20H 

JP 1, BAF6H 

JP P, 0955H 


Integer - Zahl testen 
LD HL, {7921H} 


LD ÀH 
OR L 

RET Z 

LD åH 
JR 895FH 


Zahl in L 

Zahl < 07 

ijas -1 in A und H 
jnein, @ in A und H 
;HL nach X übertragen 


testen 

;Typ prüfen 

String? ja - TYPE MISMATCH Error 
Einf. o. doppelte Genauigkeit 


;Integer-Zahl in HL 
08? 


ija - fertig 
{nein - MSB in A 
weiter bei BISFH 


RR E 


Zahlen verschiedenen Typs transportieren 


von X auf Stack (einfache Genauigkeit) 


EX DE, HL 

LD HL, {7921H} 
EX (SP) HL 
PUSH HL 

LD HL, i 7723H) 
EX ISP), HL 
PUSH HL 

EX DE, HL 

RET 


;HL in DE sichern 

LSB X in HL 

mit RET-Adresse auf Stack tauschen 
;RET-Adresse wieder auf Stack 

ıMSB X + Exp. X in HL 

mit RET-Adresse auf Stack tauschen 
;RET-Adresse wieder auf Stack 
Inhalt von HL wiederhersteilen 


Zahl einfacher Genauigkeit von RAM ın X 
Eing.: HL = Adresse der Zahl is Speicher 


cal 8902 


- hi - 


Zahl nach Y übertragen 


B9B4 
8985 
0928 
2929 
092A 
098D 
BIBE 


BIBF 
2962 
0963 
BICA 
8965 
DICA 
8967 
BICB 
8969 
OFCA 


DICR 
BICE 
2908 


892 


8903 
8906 
8907 
8908 
8909 
B9DA 
B9DR 
89DC 
07DE 


89DF 
BIE2 
OR%3 


ER 
22 21 79 
ð 
69 
22 23 79 
EB 
c9 


212317 
5E 


56 
23 
4E 
23 
46 
23 
c9 


11 21 79 
86 B4 
18 85 


EB 


JA AF 78 
47 
1A 
77 
13 
23 


20 F? 
c9 


212379 
IE 
6 


Zahl einfacher Genauigkeit von Y nach X 


EX DE,HL sL5B Yin HL, HL in DE sichern 
LD \7FZ1H) HL ;HL in LSB Y übertragen 

LD Ark ;MSE Y + Exp. Yın HL 

LÜ LC 

LD {7923H}, HL jals MSB a u, Exp. X abspeichern 
EX DE, HL inhalt von HL wiederherstellen 
RET 


Zahl einfacher Genauigkeit von X nach Y 


LD HL, FH ıL5B A adressieren 
LD E (HL) LSR laden 

INC Hi jnächstes Byte 

LD D, HL) laden 

INC HL ;MSB laden 

LD €. {HL) 

INC HL Exp. laden 

LD B, iHL) 

INC HL iH hinter die Zahl 
RET 


Zahl einfacher Genauigkeit von X in RAM übertragen 


iD DE, 7921H sX-Adresse in DE 
LD B,4 Anzahl Bytes f. einf. Genauigkeit 
JR B9D7H 


Zahl jeden Typs von (HL) nach (DE) transportieren 
EX DE, HL ıZiel- und Quelladresse vertauschen 


Zahl jeden Typs von (DE) nach (HL?) transportieren 


LD As (7BAFH) Typ der Zahl laden 

LD BA ıdient als Bytezähler 

LD A, (DE) ;Byte laden 

LD (HL? A sund in neuen Bereich ubertragen 
INC DE jAdressen + 1 

INC HL 

DEC B Zähler - 1 

JR NZ,89D7H ‚87 ja - zuruck 

RET ifertig 

Verarbeitung von Vorzeichen bei reellen Zahlen 

LD HL, 7923H ;MSB X adressieren 

LD Ás (HL? jund in A laden 

RLCA Vorzeichen in Bit ® von A 
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B9E4 
85 
BIE& 
8987 
BIEB 
099 


BEB 
BIEt 
BIED 
BIEE 
BIEF 


01 
BIF2 


8974 
097 


37 
iF 


IF 
23 
23 
77 
7 
87 
37 
iF 
4F 
iF 


c9 


21 27 79 
11228 
18 86 


21 27 79 
11039 
D5 


11 21 79 


E7 
D8 
11 1D 79 
(9 


SCF Carry = i setzen 

RRA ‚Vorzeichen in Carry, MSB X(7) = i 
LD (Hs A sin MSB X zurück 

{CF ‚Vorzeichen komplerentieren 

RRA und in Al?) 

INC HL Adresse HL auf Vorzeichen-Flag 
INC HL 1(7925H) 

LD (HL?) À komplement, Vorzeichen ablegen 
LD Ast ıMSR Yın A 

RLCA ‚Vorzeichen Y in Bit 8 von A 
SEF ‚Carry = | setzen 

RRA ıMSB Y(7) = 1, Vorz. Y in Carry 
LD HA ;MSB Y zurück 

RRA ‚Vorzeichen in A(7) 

XOR (HL) mit kompl. Vorz.X verknüpfen 


sAi7) = I, wenn Vorz. X = Vorz. Y 
RET 


Wert jeden Typs von Y nach X transportieren 
(78AFH = Typ des Wertes) 


LD HL, 7927H ;Y-Adresse in HL 
LD DE, B9D2H Adresse der Transport-Routine 
JR BABZH 


Wert jeden Typs von X nach Y transportieren 
{78AFH = Typ des Wertes) 


LD HL, 7927H Y-Adresse in HL 
LD DE,BID3H sAdresse der Transport-Routine 
PUSH DE sAdr. Transport-Routine auf Stack 


X-Adresse in Abhängigkeit vom Typ ernittein 


LD DE,7921H ‚X-Adr. f. Integer, Strings und 
‚einfache Genauigkeit 

RST Z0H Typ testen 

RET c söoppelte Genauigkeit? nein-fertig 

LD DE, 791DH ;X-Adr. f. doppelte Genauigkeit 

RET 


EEIEIE AEE REE EAE AERE FE AE AE RE AEE AEE AE EAE AEE AEE AE IHE IEE AE EEE é 
Vergleichs-Routinen 


Vergleich von Zahlen einfacher Genauigkeit 
Eing.: X = Zahl 1 
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BARC 
ABD 
BABE 
All 
BAL 
BAIS 
BA18 
8A19 
DALA 
BAID 
BAIE 
BAIF 
BAZ 
BAZI 
BAZa 
BAZS 


BA2& 
8427 
BAE 
0h29 


BAZB 
BAZC 
BAZD 
BAZE 
BAZF 
BASB 
BASI 
32 
BAJI 
BAJA 
BA35 
A36 
BA37 


78 
87 
CA 55 09 
21 5E 09 
E5 
cD 55 09 
79 
c8 
2i 23 797 
AE 
79 
FB 
CD 26 BA 
iF 
A9 
c? 


23 
78 
BE 
8 
2B 


79 
BE 
co 
28 
TA 
BE 
co 
2B 
7B 
% 
ce 
El 


Ei 
c9 


Y= Zahl 2 
Ausg.: K? Y A= 
i=-Yı A=h 1=1 
X<Y A=FF, (Y=1,5=1 
LD Å, B Y=m 
OR À 
JP 2,09558 ja - X testen und zurück 
LD HL: 095EH Adr. der Testroutine auf Stack 
PUSH HL 
CALL 8955H ‚X = 07 
LD At JMSB Y in À 
RET Z Ja, Vorzeichen von Y = Ergebnis 
LD HL, 7923H Adresse von MSE X laden 
XOR (HL) ‚Vorzeichen X = Vorzeichen Y ? 
LD Arc MSB Y in À 
RET M nein, -Vorzeichen von Y = Ergebnis 
CALL  BAZSH ;Vergleich bei gleichen Vorzeichen 
RRA Carry in Bit 7 von Ä 
XOR £ jwenn Y negativ, A{7) invertieren 
RET 
INC HL Adresse des Exp. X in HL 
LD Ay jExp. Y laden 
cP (HL) ‚Vergleich der beiden Exponenten 
RET NZ jzurück, wenn ungleich 
DEC HL (MSB X mit MSB Y vergleichen 
LD ÂC 
CP (HL) 
RET NZ zurück, wenn ungleich 
DEC HL $n- Byte X mit n. Byte Y 
LD ÀD 
CP {HL} 
RET NZ jzuruck, wenn ungleich 
DEC HL sLSB X mit LSB Y vergleichen 
LD AE 
SUR (HL) 
RET NZ zurück, wenn ungleich 
POP HL ıX = Y, RET-Adressen vom Stack entf 
POP HL 
RET izuruck ins Hauptprogramm mit Z=1 


Integer-Vergleich 


Eing.: HM = Zahli (Zi) 
DE = Zahl2 (72) 
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2439 
BAJA 
BASB 
BAJC 
BASF 
BA4B 
BA4I 
BAGA 
BA4S 
BAG 


BA49 
BAAC 


BA4F 
BASZ 
8453 
BAS% 
8457 
BASA 
BASB 
BASE 
BASF 
BAGG 
Abi 
BAb2 
BA65 
BAGS 
BA67 
A68 
Ab? 
DAGA 
BAOT 


TÀ 
AC 
TC 
FASF 89 
BA 
(2 68 09 
7D 
93 
v2 68 09 
c9 


212779 
cD D3 09 


il 2E 79 
1A 
B7 
CA 55 09 
ži 5E 09 
£3 
aD 55 09 
1B 
1A 
af 
c8 
212379 


E: 


79 
FE 
13 
23 
86 88 
iA 
96 


Ausg. Zi > I, A=1 


i=2ı, A: Z=1 
21i < 72, AÀ = FF, CY=1,5=i 
LD Ad Vorzeichen gleich ? 
XOR H 
LD Ås H MSB ZÍ in À 
JP M 095FH jnein, Vorzeichen von Zi = Ergebnis 
CP 8 ¡MSB ZI = MGB 72 ? 
JP NZ, BISBH ‚nein, Carry ergibt Ergebnis 
LD ÂL ‘LSR Zi = LSB 72 7 
SUR E 
dP NZ, 0960H ‚nein, Carry ergibt Ergebnis 


RET 
Vergleich doppelter Genauigkeit 


X mit Konstante (DE) 
LD HL, 7927H Adresse Y laden 
CALL  BODIH ‚Konstante in Y übertragen 


Ak mt Y vergleichen {Y=7927 ff.) 
usg.: X >Y Azi 
X=YøY A= l 


=f 
X<Y AFF, Y= 


lh Sesi 
LD DE, 792EH ¡Exponent Y adressieren 
iD A, (DE) Y=8? 
úR À 
JË 2,0955H ija, X bestimmt das Ergebnis 
LD HL,BISEH ‚Adresse der Testroutine auf Stack 
PUSH HL 
CALL  B955H =t 
DEC DE Adresse MSB Y 
iD À, (DE) MSB Y in A und C 
LD CA 
RET ł ‚X = @ -Vorzeichen Y = Ergebnis 
LD HL, 7923H sAdresse MSB ï 
XOR {HL} Vorzeichen X = Vorzeichen Y 7 
LD Arc 
RET M mein, Vorzeichen Y = Ergebnis 
INC DE Exponent Y adressieren 
INC HL jExponent X adressieren 
LD 3,8 38 Bytes vergleichen 
iD å, (DE) Byte von Y laden 
SUB (HL) ı- Ä-Byte 
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BAGE 
A71 
DAT? 
BATA 
QATA 
DATE 
BA’? 


2478 
BATE 
BATE 


BATF 
AABB 
BAB3 
BAB& 
BA87 


BABA 
BABD 
BABE 
BA91 
8473 
8495 
8A98 
2199 
BAFA 


BAD 
AFF 


t2 23 0A 
i8 
ZB 
8 


C 
(9 


CD 4F BA 
cz 3 89 
19 


E7 
2A 21 79 
F8 
CA F& BA 
D4 B9 GA 


21 B2 07 
£3 

JA 24 79 
FE 98 

30 BE 

CD FB BA 
ER 

Di 
222179 


3I 02 
32 AF 78 
c9 


Bi 80 98 
11 00 08 
CD BC BA 
co 
61 


JP 

DEC 
DEC 
DEC 
JR 

POF 
RET 


Ymit Ä vergleichen 


CALL 
JF 
RET 


NZ, BAZJH 
DE 

HL 

B 

NZ, BASCH 
8 


BAAFH 
NZ, BISEH 


sungleich, aus Carry Ergebnis erm, 
sÁdresspointer Xý -i 


38 Bytes verglichen? 

inein, nachstes Byte 
;Rucksprungadresse vom Stack entf. 
imit A= und Z=1 zuruck 


in.a. Vergleichsroutine aufrufen 
wenn ungleich, Ergebnis invertier. 


KETTE HIHI N ER HE RER 


CINT - Funktion 
Zahl in is-Bit Integer umwandein 


Eng. i X=Ausgangswert 


Ausg.: X=Integer 


RST 
LD 
RET 
JP 
CALL 


LD 
PUSH 
LD 
cP 
JR 
CALL 
EX 
POP 
LD 


LD 
LD 
RET 


LD 
LD 
CALL 
RET 
LD 


ZOH 

HL, {7921H} 
M 

Z, BAF&H 
NC, BABIH 


HL, 0782H 
HL 

A, 179244) 
OH 

NG, BAASH 
BAFBH 

DE, HL 

DE 
(7921H), HL 


Ay2 
(TBAFH) SA 


BC, 7080H 
DE, 0 
BABCH 

NZ 

Ast 
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sTyp des Ausgangswertes testen 
Adresse ırı HL 

Integer? ja - fertig! 

‚String? Ja - TYPE MISMATCH Error 
;Dopp.Genauigk.? ja - zunächst in 
seinfache Genauigkeit umwandeln 
sOVERFLOW Error - Adresse in Stack 


Ans. X 5 32767 7 (Exp. > 16) 


ija! 

Integer X in DE 

weiter in HL 

süV-Error-Adresse aus Stack entf. 
;HL in X übertragen 


;Typ = Integer 
;setzen 

j- 32768 in Y (BODE) 
„A = -32768 ? 


pmein, OVERFLÓW - Error 
dà HL = -32768 


DAAE 
BAAF 


BABI 
0AB? 
BARS 
BABS 
BAR? 
DARC 
DARF 
BACB 
BACI 
BACZ 
BACH 
BACB 
BACH 


BACE 
BACF 
BAD2 
DADI 
BAD4 
BADA 
BADE 


6A 
18 E8 


E7 
EQ 
FA CC DA 
CA F6 BA 
CD BF 09 
CD EF 0A 
78 
B7 
c8 
cD DF 89 
21 28 79 
4b 
C3 % 07 


2A 21 79 
CD EF BA 
TC 

55 

iE 88 
Bb %8 

C3 67 09 


E7 

8 

Ch F& DA 
FÜ CC MA 
21 00 08 
22 ıD 79 
22 iF 79 


LD LD 
JR BAFIH weiter bei BAF9H 


RR HERE 


CSNG - Funktion 

Zahl in Wert einfacher Genauigkeit umwandeln 
Eing.: X = Ausgangswert 

Ausg.: X = Wert in einfacher Genauigkeit 


RST 20H} Typ des Ausgangswerts ermitteln 
RET PO ‚Ist schon einfache Genauigkeit! 
JP M BACCH ‚Integer? ja - weiter bei BACCH 
JP Z,BAF&H ‚String? ja - TYPE MISMATCH Error 
CALL  BOBFH 3X nach Y übertragen 

CALL  BAEFH Typ = einf. Genauigkeit 

LD AB =y 

ÖR À 

RET Z şdja;, fertig 

CALL  B9DFH nein, Vorzeichen abtrennen 

LD HL, 7920H Erstes, nicht zu übernehm. Byte 
LD B, (HL) ‚zur Rundung bereitstellen 

JP 0796H ;Runden und Normalisieren 


LD HL, 17921H) ‚Integer in HL 


CALL  BAEFH ;Typ = einfache Genauigkeit 
LD ÀH Parameter fur Umwandlung 
LD Di ;bereitstellen 

LD E8 

LD R, 98H iExponent = 16 setzen 

JP 0969H ‚zur Umwandlungsroutine 


TRIER 


CDBL - Funktion 

Zahl in Wert doppelter Genauigkeit umwandeln 
Eing.! X = Ausgangszahl 

Ausg.: X = Wert in doppelter Genauigkeit 


RST 28H Typ der Zahl ermitteln 

RET NC sıst schon doppelte Genauigkeit 
JP 2,BAF&H ‚String? TYPE MISMATCH Error 

CALL M, BACCH Integer? zuerst in einf.Genauigk. 
LD HL, B ‚die vier niederwertigen Bytes 


LD {(791DH), HL sın X löschen 
LD {7I1FH),HL 
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BAEC 
BAEE 


AEF 
BAFL 


BAF4 
BAFS 


BAF6 
BAFB 


BAFR 
BAFE 
BAFD 
BAFE 
BAFF 
area 
aBa 
2802 
0885 
BRS 
0829 
BBA 
BRAD 
BBOF 
081A 
BB1J3 
BBi4 
BBS 
0Bi8 
OBIA 
BBD 
BIE 


JE B8 
ĝi 


JE 84 
CI 9F DA 


E7 
CB 


IE 18 
03 AZ 19 


47 
áF 

57 

SF 

B7 

c8 

E5 

CD BF 09 
CD DF 09 
N: 

67 

FC IF ØB 
3E 98 

9 

CD D7 07 
Te 

17 

DC AB 07 
Bo Ba 

DE C3 97 
Ei 

c9 


Typ = doppelte Genauigkeit 

iD Ar8 A = Typcode 8 

DEFRR i ıLD BC,B43E = Dummy-Befehi 
weiter bei QAFIH 


Typ = einfache Genauigkeit 
LD Ark A = Typcode 4 
JF BAIFH sin Typ-Byte (78AF} speichern 


Prufen, ob X einen String enthält 


RST 28H ‚Typ-Byte auswerten 

RET Z ‚String? ja, fertig 

LD Ey18H ‚Fehlercode f. TYPE MISMATCH Error 
JP 19AZH ‚zur Fehlerausgabe-Routine 


RITTER EE EE 


Gemeinsames Unterprogramm für INT, FIX, CINT 


LD B, A jwenn À = B, zurück mit Y=0 
LD CÀ 

LD DA 

LD ErA 

OR À 

RET Z iok, = 

PUSH HL Adresse von Exp. X retten 
CALL  BIBFH ‚X nach Y übertragen 

CALL  BIDFH Vorzeichen abtrennen 

XOR {HL ) Ist X negativ? 

LD HA Vorzeichen in H(7) 

CALL  M,OBiFH iX = neg., LSE X - i 

LD A, 98H }Mantissenlänge - Exponent 
SUB B = Anzahl Rechtsverschiebungen 
CALL  87D7H ;Rechtsverschiebungen durchführen 
LD AH iwar X negativ ? 

RLA 

CALL C, 0748H ida, Festkommazahl + 1 

LD B,8 SLSR = 8 

CALL  C,07C3H wenn negativ, X = -X 

POP HL jExponenten-Adresse laden 

RET 
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BBIF 
DR22 
0821 
Bz 
BEZI 
0824 
0825 


R27 
0E28 
0E2B 
BR2E 
BB31 
BB34 


0837 
2238 
8839 
OBB 
BRID 
2840 
B43 
QB44 
B46 
DB49 
BB4A 
DB4B 


BB4E 
2258 
@B51 


1R 
3 

A3 
3e 
cO 
aB 


E7 

F8 

CD 55 89 
F2 37 08 
cD 82 89 
cD 37 08 
C3 7R 89 


E7 

Fa 

J0 1E 

28 39 

CD SE BA 
21 24 79 
TE 

FE 98 

34 2i 79 
D8 

TE 

CD FB BA 


36 98 
7B 
F5 


DEC 
LD 

AND 
INC 
RET 
DEC 
REF 


jnein, fertig! 
MSB - 1 


EETTTRRHRRHRHHHERE 


FIX - Funktion 
Integer otıne Berücksichtigung des Vorzeichens bilden 


Eing.® X = Ausgangswert 


Ausg.: X = Funktionswert 


RST 
RET 
CALL 
JP 
CALL 
CALL 
JP 


20H 

M 
0755H 
P, 0B37H 
0782H 
BR37H 
877BH 


;Typ ermitteln 

bereits Integer? ja - fertig 
X = 97 

iJa, weiter bei AB37H 

nein X = -X 

Integer bilden 

jX = -ý 


EREEREER EEEH EEEE E EEEE EE e e E 


INT - Funktion 
Ermittelt nächst niedrigere ganze Zahl 


Eing.: X = Ausgangswert 


Ausg.: X = Integer 


RST 
RET 
JR 
JR 
CALL 
LD 
LD 


‚cr 


LD 
RET 
LD 
CALL 


LD 
LD 
PUSH 


20H 

M 

NE, BESPH 
Z, BAFöH 
BASEH 
HL, 7724H 
Ar (HL) 
IBH 

Às (7921H) 
NE 

As (HL?) 
BAF BH 


EHL), 78H 
Ay 
AF 
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‚Typ ermitteln 

‚bereits Integer? ja - fertig 
;doppelte Genauigkeit? ja - Sprung 
‚String? ja - TYPE MISMATCH Error 
‚wenn möglich, in Integer umwandeln 
ıExponent X adressieren 

‚und in A laden 

‚Exponent >= Mantissenlänge? 

ıL5B von X laden 

idä, fertig - keine Nachkommastell. 
tExponent X laden 

‚Nachkommasteilen entfernen 

jund in Y übertragen 
‚Mantissenlänge in Exp. X eintragen 
ıL5B Yın A 

sauf Stack sichern 


ESZ 
2B53 
ar54 
8857 
2858 


2859 
ARSC 
DRSD 
BSF 
BB62 
BR64 
ARAS 
BBh6 
uB67 
ABY 
BESE 
ABEC 
BB&D 
OB6E 
0878 
8B71 
0874 
0877 
8878 
BB7A 
BR7R 
BRTC 
BB7F 
0882 
ABSI 
QBa4 
0886 
8887 
OBSA 
BBED 
BBOF 
2878 
0873 
2B94 
0897 
2898 
0BFB 


79 
17 
CD 62 07 
Fi 
(9 


21 24 79 
TE 

FE 98 

DA 7F 0A 
20 14 

ar 

25 

TE 

EE 80 

Bo Bó 

2B 

Bé 

85 

20 FR 

B7 

21 00 80 
CA 9A DA 
79 

FE BB 

DB 

F5 

CD BF 09 
CD DF 99 
AE 

zB 

3b BB 

F5 

FC AB OB 
212379 
JE BB 

g 

cD 6? @D 
Fi 

FC 20 BD 
AF 

32 1079 
Fi 


LD Art ‚Vorzeichen Y ın Carry 

RLA 

CALL WTEZH :Normaiisıeren, wenn Y4, X=-X 
POP Ar ;LSE Y weder laden 

RET 


Doppelte Genauigkert in Integer umwandein 


LD KL 7724H sAdresse des Exponenten laden 
LD Ar {HL} Exponent < 167 (X «< 32768) 

CP JOH 

JP C BATFH iJa, weiter be: der CINT-Funktion 
JR NZ, 0878H Exponent > ib, weiter bei BE7BH 
LD GA ¡Exponent in € 

DEC KL Adresse auf NSR 

LD As (HL) iX = -3478 ? 

XOR BOH ‚Vorzeichen von X in AT) 

LD Bó ‚Eytezähler = 6 

DEC HL nächstes Byte 

ÖR ` (HL) jwenn ungleich 8, dann nıcht. 
DEC B Zähler -i 

JR NZ, BB&BH jwenn B, fertig 

OR À A = 0? (d.h. X=-327687) 

LD HL, BARAH 32768 ın HL 

JP Z, BATAH jda, fertig! 

LD At jExponent X zuruck in A 

cF OBEH Exponent >= Mantissenlänge? 
RET NE 13a, fertig - keine Kommastellen 
PUSH AF Flags retten 

CALL  BIBFH iX nach Y ubertragen 

CALL  BIDFH ;Vorzeichen abtrennen 

XOR (HL? iX = negativ ? 

DEC HL sådresse Expment in HL 

LD (HL), BESH {Exponent X = Mantisseniánge 
PUSH AF Worzeichen A(7) retten 

CALL M, OBAGH iX negativ, LSB -1 

LD HL, 7923H ¡HL = Adresse MSB X 

LD A, BBBH Mantissenlänge - Exponent 

SUR B = Anzahl Rechtsverschiebungen 
CALL  82D69H rechts verschieben 

POP AF ‚Vorzeichen zuruck 

CALL M, 8D20H wenn X < 8, Integer + I 

XOR À LSB für Normalisierung = B 

LD i791CH) A 

POP AF ‚Flag für Normalisierung laden 
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Bst 
BRID 
OBAR 
ABAI 
BRA4 
ABAS 
DRAG 
uBA7 
BBAF 


BBAA 
BBAR 
ABAE 
BBAF 
OBBO 
ORB? 
OBB4 
3885 
ORBE 
OBRI 
ORBA 
BBRR 
BRBD 
OBBE 
ØBCI 
BBC2 
OBCA 
øC 
BBCS 


BBC? 


D8 

C3 D8 & 
żi iD 79 
7E 

33 

B7 

23 

28 FA 

{9 


E5 

ži 20 02 
78 

Bi 

28 12 

JE 18 
29 

DA 3D 27 
EB 

29 

EB 

30 84 

09 

DA 3D 27 
Jp 

z8 FO 

EB 

El 

c9 


7C 


RET NÉ ykeine Normalisierung - fertig 
JP BCDBH ‚Sprung zur Normalisierung 

LD HL, 771DH Adresse LSB X 

iD As (HL) LSB X laden 

DEC HL i 

üR À ‚war vorher 87 

INC HL nächstes Byte in X 

JR Zu BBASH ida, weiter 

RET 


FEREREKERREERRKEREEKEREREEREREEREHEREKE 


Multiplikation {fur Matrix-Verwaltung) 
Eing,: BC = Faktor 


DE = Faktor 
Ausg. DE = Produkt 
PUSH HL ;HL retten 
LD HLA Ergebnis = B setzen 
LD R: Faktor = 0? 
OR c 
JR Z, BBCH ida; Ergebnis = @ 
LD Às ió ‚Zähler für 16 Durchläufe 
ADD HL, KL ‚Ergebnis * 2, überlauf ? 
JP C, 273DH ija, BAD SUBSCRIPT - Fehler 
EX DE, KL ‚Faktor in DE # 2 
ADD HL, HL 
EX DE, HL 
JR NC ØRCIH ‚kein überlauf, weiter 
ADD HL, BC sja, Faktor in BC addieren 
JP 6, 273DH ‚überlauf, BAD SUBSCRIPT - Fehler 
DEC À Zähler - 1 
JR NZ, BBB4H ‚nicht 8, neuer Durchlauf 
EX DE, HL sErgebnis in DE 
PúP HL ıHL wiederherstellen 


RET 


EIEEE JERE HEIE EEE JE FEAE E E AEAEE AE FE AE HEE E AE RE FEAE AEE EEE EE 


Integer-Subtraktion 
Eing.: DE = Minuend 
HL = Subtraheng 
Ausg. HL = Differenz 
(bei Unter-/überlauf in X ait einf.Genauigkeit) 
LD ÂH Vorzeichen Subtrahend in Carry 
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OBCE 17 RLÁ 


BBC? FF SBC Ara »8=-1, wenn Subtrahend < 0, sonst 9 
DECA 47 LD RA 

ARCE CD 51 CALL  BC5IH ;Subtrahend komplementieren 

BCE 79 LD Art Ag 

aber 78 SRC ÀB ‚Vorzeichen-Flag komplementieren 
AEDE 18 23 JR BRDSH ‚Sprung zur Addition 


TITTEN EEE 


Integer-Addition 
Eing.: DE = Summand 
HL = Summand 
Ausg.: HL = Summe 
(bei Unter-/überlauf in X mit einf. Genauigkeit) 


BBDZ 7C LD ÀH Vorz. des ž. Summanden in Carry 

aBDI 17 RLA 

BDA FF SBC Ash ;Vorzeichen-Flag in B 

ORDS 47 LD B, A ;B=-1, wenn Summ.< O, sonst B=ß 

BBD6 E5 PUSH HL 12. Summanden auf Stack 

0807 7A LD AD iVorz. des 1. Summanden in Carry 

@BD8 17 RLA 

2809 9F SBC AA ;A=-1, wenn Summ.i 2, sonst A=B 

ABDA 19 ADD HL, DE Summe bilden 

JBDB 88 ADC A ;überlauf? (wenn beide negativ und 
Ergebnis positiv, oder wenn beide 

BBDt BF RRCA ‚positiv und das Ergebnis negativ. 

BDD AC XOR H 

BDE F2 99 8A JP P, BA99H ‚kein überlauf, HL in X und fertig 


Additions - überiauf 


BEL c5 PUSH BC iVorzeichen-Flag retten 

BBE? EB EX DE, HL 1. Summand in HL 

OBEI CD CF BA CALL  BACFH mit einf. Genauigkeit in X 
OBES Fi POP AF Worzeichen-Flag in À 

BBE7 Ei POP HL 2. Sumsand wieder laden 

OBES CD As 89 CALL  BIAAH ;X auf Stack schieben 

OBER EB EX DE,HL +2. Summand in DE 

OBEC CD ABEC CALL  QCABH sund mit einf. Genauigkeit in X 


BBEF C3 BF BF JP BFOFH X + Summand vom Stack in X 


EIEE RIER A E AAE RE IEE E E E AEAEE EEE AE EE e E 
Integer - Multiplikation 
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BBFZ 
QEFI 
OBF4 
OBF7 
BRFE 
ABF? 


BBFC 
BRFD 
ORFE 
BBFF 
oca 
acb 
8C05 
2697 
acas 
8689 
OCRA 
acae 
BCBD 
2CiD 
acii 
BC13 
BC14 
8615 
Bci 
2617 
BACIA 
BCiB 
acie 


BCIF 
aczi 
0C22 
8624 
8625 
AC26 
BC27 
8628 


7C 
B5 
CA 7A DA 
E3 
D5 
CD 45 BC 


c5 
44 

AD 

21 00 20 
3E 18 
29 

38 IF 

EB 

29 

EB 

30 84 

2 

DA 24 @C 
3D 

28 Fi 

ci 

Di 

7c 

B7 

FA IF ac 
Di 

78 

C3 4D O 


EE 88 

B5 

28 13 

ER 

di 

ei 

Ei 

iD CF 0A 


Eing.: DE 


Ausg, ` 


LD 
ûk 
JF 
PUSH 
PUSH 
CALL 


PUSH 
LD 
LD 
LD 
LD 
ADD 
JR 
EX 
ADD 
EX 
JR 
ADD 
JP 
DEC 
JR 
POP 
FoP 
LD 
OR 
JP 
POP 
LD 
JP 


= Faktor 


HL = Faktor 
HL = Produkt 
(bei Unter-’überlauf mit einf. Genauigkeit in X) 


Ay 

L 

Z, BAFAH 
HL 

DE 
BC45H 


BC 

È, H 

CL 
HL, 0 
Àió 
HL, HL 
C OC26H 
DE, HL 
HL, HL 
DE, HL 
NC, OC10H 
HL, B 
C, OC26H 
À 

NZ, BCD4H 
BC 

DE 

ArH 

Å 
M,BCiFH 
DE 

Ay 
BCADH 


‚2. Faktor = 8 ? 


iJa, Ergebnis = @, fertig 

iż. Faktor retten 

si. Faktor retten 

‚Vorzeichen entfernen 

XOR der beiden Vorzeichen in B{7) 
‚Vorzeichen-Flag retten 

iż. Faktor in BC 


‚Ergebnis = 8 setzen 

‚Zähler = {6 Durchläufe 
Ergebnis # 2 

ibei ùberlauf, Sonderroutine 
il. Faktor # 2 


iüber lauf? 

‚nein, keine Addition 

Ja, Ergebnis + 2, Faktor 
bei überlauf Sonderroutine 
‚Zähler - 1 

nicht 8, nächster Durchlauf 
Vorzeichen-Flag laden 

il. Faktor vom Stack holen 
‚Ergebnis > 32767 9 


Ja, überlauf! 

iż. Faktor vom Stack holen 
Ergebnis mit Vorzeichen-Flag 
ıkorrigieren 


Multiplikations - überlauf 


XüR 
üR 
JR 
EX 
DEFB 
POP 
PūP 
CALL 


80H 

i 

Zu BC37H 
DE,HL 
BIH 

BC 

HL 
BACFH 
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‚Ergebnis = 32768 7 


ija: 

ii. Faktor in HL 

iLD BG,EICI = Dummy-Befehi 
;Vorzeichen-Flag laden 

si. Faktor in HL laden 

il. Faktor sit einf, Genauigk. in X 


ACER 
"AR 
BC 
BC3Z 
A633 
BC34 


8637 
8638 
8639 
BEIA 
BC3D 
BCIE 
thl 
ACh? 


2645 
Bla 
2647 
BCAB 
BCB 
BCC 
acD 
BCE 
8651 
8652 
8653 
8054 
8653 
BC56 
8657 
5658 


Bc5B 
BC5E 
BCA 
Bt62 


El 
LD A4 09 
cD CF 8A 
Ci 
dl 
63 47 08 


78 
B7 
ĉl 
FA 9A BA 
D5 

Ch CF OA 
Di 

C3 82 07 


TC 
AA 
47 
CD acc 
ER 
T 
B7 
F2 9A 0A 
AF 
4F 
9 
oF 
19 
% 
67 
C3 9A BA 


2A 21 79 
cD 531 86 
TC 

EE 88 


Pür 
CALL 
CALL 
Für 
POP 
dF 


LD 
OR 
POP 
JP 
PUSH 
CALL 
PP 
JP 


HL 12, Faktor vom Stack holen 

D7A4H si. Faktor aus X auf Stack 

BACFH ‘2. Faktor mit einf, Genauigk. in X 
BE iih. Faktor aus Stack in Y 

DE 

29474 =SYHrÄ 

As ‚Vorzeichen-Flag ın Ä 

A Ergebnis sollte negativ sein 

BC ‚Stack bereinigen 

M,BAFAH sist negativ; HL I-32768 ım X 

DE il. Faktor auf Stack 

BACH SHE (-32748} mit einf.Genauigk.ın X 
DE il. raktor wieder laden 

BIBZK ‚X komplementieren, fertig 


Vorzeichen verknupfen, 
bei negativen Faktoren kompiement bilden 


LD 
XOR 
LD 
CALL 
EX 
LD 
OR 
JP 
XOR 
LD 
SUB 
LD 
LD 
SBC 
LD 
JP 


ÀH wenn Vorzeichen gleich, 
D ‚Bi7) =, bei ungleich BIT) = 1 
B,A 

BEACH ;Absolutwerte bilden 
DE+HL 

AH Vorzeichen negativ? 

À 

P, BASAH inein, HL ın X, fertig 
À A=8 

GA s= 

L -Lini 

LÀ 

Arc A=B 

AH ;B-HinH 

HA 

BAIAH ;HL in X übertragen 


ERRERA AEE EAE E AE AE AEE AERE AE E EE EER EEEE E EE 


Negativen Wert einer Integer-Zahl bilden 
Eing.: X = Argument 
Ausg.: X = Funktionswert 


LD 
CALL 
LD 
XOR 


HL, 7921H) Argument in HL ubertragen 


BCSiH s@ - Argument in HL und X 
AH HL = 32768 ? 
80H 
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8664 
8665 
ACs 
aco? 
BCA 
OCAR 
2CAD 


8C78 
8673 
8674 
8676 


8677 
BC7A 
BC7B 
act 
8670 
BC7E 
BETF 
2C88 
BCB3 
DCBA 
8685 
2688 
8C89 
BCBB 
BeBt 
ecap 


BCBE 


55 

co 

ER 

CD EF BA 
AF 

86 98 

C3 69 09 


zi 2D 79 
TE 

EE 88 

77 


21 2E 79 
TE 

B7 

(8 

47 

2B 

4E 

11 24 79 
1A 

37 

CA F4 B9 
% 

38 14 

Zr 

s 

F5 


BE 88 
23 


OR L 

RET NZ ‚nein, fertig! 

EX DE, HL ijas HL in einf.Genauigkeit umwand. 
CALL  QAEFH Typ = einf. Genauigkeit setzen 
KOR Ä 

LD 3, 98H ‚Exponent = i8 setzen 

JP 8969H ‚weiter bei B944H 


HH ER 


Subtraktion mit doppelter Genauigkeit 
Eing.: X = Minuend 

Y = Subtrahend 
Ausg.: X = Differenz 


LD HL, 792DH ‚Adresse MSB Y laden 

LD A, (HL) Vorzeichen Y invertieren 
XOR 80K 

LD (HL); À 


FEIE HE AE FEAE EIEEE AEE E AE E AEE AE AE BETE AERE AEAEE EREE K EEE EE 


Addition mit doppelter Genauigkeit 
Eing.! X = Summand 


Y = Sumaand 
Ausg.: X = Summe 
LD HL, 7921H Adresse Exponent Y laden 
LD Às (HL) Y=8? 
OR A 
RET l idas X = Ergebnis 
LD Br ıExponent Y in B 
DEC HL ‚Adresse MSR Y 
LD C (KL) ‚Vorzeichen Y in € 
LD DE, 79248 Adresse Exponent X laden 
LD Å, (DE) 
OR Å x0? 
JP Z,B9F4H ijas Y nach X als Ergebnis 
SUB B Exponent X >= Exponent Y ? 
JR NE, BCAIH Ja 
CPL jnein, Exponentendiff. invertieren 
INC À 
PUSH AF sund auf Stack sichern 
X und Y vertauschen 
LD C8 iBytezähler laden 
INC Ko Adresse Exponent Y laden 


8191 
8692 
8693 
2694 
8695 
8696 
8697 
8698 
8699 
BCIA 
acae 
Bc9D 
BCI9E 
BC9F 
BCAB 
ACAL 
BEAJ 
BCAA 
BCAS 


OCAS 
OCA9 
OCAB 
BCAC 


BCAD 
ocg 
OCBI 
BCB6 
BCB 
BCBA 
CRB 


BCBE 
„BCCI 
Bcch 
BCC5 
BCCh 
occ? 
Bett 


BCCR 


z0 F6 


FE 39 
Da 

F5 

CD DF 89 


21 2D 79 
cD 69 8D 
3A 26 79 
32 16 79 
78 

B7 

F2 CF &C 


cD 33 0D 
D2 BE OD 
EB 

3 

CA B2 97 
cD 90 8D 
C3 BE BD 


CD 45 BD 


PUSH HL sund auf Stack 
LD Å, (DE) {1 Byte vertauschen 
LD R, (KL) 
LD IHL) À 
LD AB 
LD {DE),A 
DEC DE jAdress-Zeiger - 1 
DEC HL 
DEC c fertig 7 
JR NZ ,0C92H ‚nein, nächstes Byte 
POP HL Adresse Exponent Y wieder laden 
LD B, (HL) Exponent Y in B 
DEC HL ‚Adresse MSB Y in HL 
LD C, (HL) MSB Y in C übertragen 
POP AF iExponentenditferenz laden 
CP 39H >= Mantissenlänge + I ? 
RET NC ija; fertig! 
PUSH AF ‚Exponentendifferenz auf Stack 
CALL  BIDFH }Vorzeichenbits entfernen, 
ıVorz.flag des Ergebnisses bilden 
INC HL Zus. Byte für Rechtsschieben 
LD (HL), 0 $(7925H) löschen 
LD B,A iVorzeichenflag in B 
POP AF Exponentendifferenz laden 
ı= Verschiebezähler 
LD HL, 792DH ıMSB Y adressieren 
CALL  BD69H $Y rechtsschieben 
LD As (7926H) }herausgeschobens Byte 
LD 79CH),A inach X übertragen 
LD AB ;beide Vorzeichen gleich ? 
OR A 
JP P OCCFH jnein, Subtraktion 
Addition der Mantissen 
CALL  BD3SH ;Mantissenaddition. überlauf ? 
JP NC, ØDBEH jnein, zum Ende 
EX DE, HL HL = Adresse Exponent X 
INC (HL) Exponent X + 1, überlauf ? 
JP Z,87B2H ija, OVERFLOW - Error 
CALL  8DIH ;Mantisse 1 Bit rechts schieben 
JP BDBEH weiter bei GDBEH 


Subtraktion der Mantissen 
CALL  BD45H }Mantissensubtraktion 
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acD? 
8CD5 


aco8 
2CD9 
DCDA 
BCDD 
BCDE 
BCEB 
DCE3 
CES 
ACES 
CE7 
BCEB 
OCE9 
DCEA 
BCEC 
BCED 
BCEF 
BCri 
DCF3 


ACFE 


BCF7 
BCFA 
acFD 
OCFE 
anal 
8082 
8003 
8085 
2008 


2007 
BDBA 
BDOD 


BDBE 
Dii 
aD12 


ZI ho 
Dar Baus 
LN Pa 
in 
u 
K ~e 


47 

3A 23 79 
B7 

20 1E 

21 1C 79 
BE 88 
56 

7 

TA 

23 

aD 

20 F? 

78 

Dé 88 

FE CA 
z0 E6 

(3 7897 


85 
211679 
cD 97 BD 
B7 

FZ2 F& 
78 

B7 

28 09 

21 24 79 
86 


77 
D2 78 87 
{8 


3A 1C 79 
B7 
FC 28 aD 


LD 
CALL 


HL, 7923H 
C @D57H 


Adresse Vorzeichenflag 
iUnterlauft ? ja, Mantisse X 
\komplementieren 


TITTEN ER RE 


Normalisieren 
XOR A 

LD 3, A 

LD Ås (7923H) 
OR À 

JR NZ,BCFEH 
iD HL, 791CH 
LD (‚8 

LD D, (HL) 
LD (HL) sA 
LD ÀD 

INC HL 

DEC £ 

JR NZ, BCESH 
LD ÀB 

SUR 8 

cP BCOH 

JR NZ,BCDIH 
JP 0778H 
DEC B 

LD HL, 7I1CH 
CALL 80974 

OR A 

JP P,BCF6&H 
LD AyB 

ÖR À. 

JR 2,BDBEH 
LD HL, 7924H 
ADD Às (HL) 
LD (HL) ÀA 
JP NC: 0778H 
RET Z 

LD As t79ICH) 
OR A 

CALL  M,BDZUH 


sVerschiebezähler = 8 


ıMSB X laden 

=8? 

nein ! 

Ja, X um 1 Byte links schieben 
;Bytezähler 

;Byte laden 

‚letztes Byte an diese Stelle 


‚Adresse erhöhen 
‚fertig ? 


mein, weiter 


Verschiebezähler - 8 


140 Verschiebungen? (X = 0) 
jnein, weiter 
ijas X = Ø, fertig! 


‚Verschiebungen - I 

Adresse LSR X laden 

X um ein Bit nach links 
jhöchstwertigstes Bit gesetzt? 
snein, weiter 

jAnzahl Verschiebungen = 0 ? 


jja, zum Ende 

Adresse Exponent X 

ineuer Exponent = alter Exponent 
it Anzahl Verschiebungen 

jzuruck in X 

tunterlauf? ja, X=B, fertig 

3X = 0? ja, fertig! 


shöchstw. Bit von LSB X=8 7? 


‚nein, Ä runden 


8015 
2018 
aD19 
QUIE 
2Dic 
DiD 


BDIE 
aDir 


2028 
8023 
0025 
2D26 
8027 
AD28 
8029 
BDZB 
BD2t 
0D2F 
2030 
2D32 


8033 
2036 
8037 
BD3B 
aD3c 
2D3D 
DJE 
BD3F 
2D4B 
D41 
8D42 
8044 


21 25 79 
7E 

Eb 88 
ZB 

¿È 


21 1D 79 


CB 

23 

85 

20 FA 

dá 

CA B2 87 
Zu 

36 88 
c? 


21 2779 
ii 1D 79 
BE 87 

AF 

1A 

BE 

12 

13 

23 

BD 

28 F8 

c9 


iD HL, 7725H ‚Vorzeichen-Flag adressıeren 

LD Å, (HL) ;laden und Vorzeichen 

AND 30H ‚ausblenden 

DEC HL Adresse MSR X laden 

DEC HL 

XOR (HL?) Vorzeichen invertieren und mit 
MSB X verknupfen 

LD (HL), A ıMSB zuruck in X 

RET 


EREKEKEKERRERERREKERRKEEREREKERRKEEEEE 


Runder 

LD HL, 791DH Adresse L5R X laden 

LE Br? ;Mantıssenlänge = 7 Bytes 
ING iHL) iByteinhalt + I, überlauf? 
RET NZ nein, fertig 

INC HL iJa, naāchstes Byte 

DEC E $alle Mantissenbytes? 

JR NZ, BDZSH inein, weiter 

INC (HL) Carry durch ganze Mantisse? 
JP Z, 0782H idas OVERFLOW - Error 

DEC HL ıMSR X = BOH setzen 

LD {HL}, 80H 

RET 


FETTE ER 


Mantissen-Addition doppelter Genauigkeit 
Mantisse X = Mantisse X + Mantisse Y 


LD HL, 7927H Adresse LSB Y 

LD DE, 791DH sAdresse L5B X 

LD C7 Zähler = 7 Bytes 

XOR À Carry löschen 

iD A, (DE) ‚Byte aus X laden 
ADC À, (HL) ‚Byte aus Y addieren 
LD {DE}, A ‚Summe in X speichern 
INC DE sAdresszeiger erhöhen 
INC HL 

DEC C ifertig ? 

JR NZ, BDSCH nein, weiter 

RET 


EREEREER EE IEEE FEAE Ae dE AE AE AE AE e AE EAE dE AEE AE E AE EEEE 
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2D45 
BD48 
BDAB 
oD4D 
BD4E 
BDAF 
2058 
8051 
2052 
8053 
2054 
8056 


8057 
8058 
8059 
BD5A 
805D 
BD5F 
0068 
BD61 
2062 
3063 
2D64 
8065 
0066 
8068 


8069 
BDA 
BDbB 
DAD 


21 27 79 
11 1D 79 
BE 87 

AF 

1A 

9E 

12 

13 

23 

aD 

20 F8 

c9 


7E 

2 

7 
211079 
Ba 08 
AF 

AF 

7 
£ 

7 
23 
05 
28 F9 
c9 


71 
£5 
D6 88 


Mantissen - Subtraktion doppelter Genauigkeit 
Mantisse X = Mantisse X - Mantisse Y 


LD 
LD 
LD 
XOR 
LD 
SRC 
LD 
INC 
INC 
DEC 
JR 
RET 


HL: 7927H 
DE, 791DH 
C7 

À 

A, (DE) 
As (HL) 
{DEI,A 
DE 

HL 

€ 

NZ, BD4EH 


iAdresse LSB Y 

Adresse LSB X 

$7 Bytes als Zähler 
Carry löschen 

Byte aus X laden 

Byte aus Y subtrahieren 
‚Differenz in X speichern 
sAdresszeiger + 1 


ifertig ? 
nein, weiter 


FEREARE EAE JE FE FE AE GEJE AE AE FEAE AE 1E AE AE AE FE AE E EEE E E eE EE E 


Mantisse von X komplementieren 


LD 
CPL 
LD 
LD 
LD 
XOR 
LD 
LD 
SBC 
LD 
INC 
DEC 
JR 
RET 


Ay (HL) 


(HL) +A 
HL, 791CH 
B,8 

A 

A 

Ast 

A, (HL) 
(HL), A 
KL 

B 

NZ, BD61H 


;Vorzeichen-Flag konplementieren 


Adresse L5B X laden 
;Bytezähler = B 

Carry löschen 

= 

=g 

Byte von 8 subtrahieren 
sund zuruckspeichern 
jAdresszeiger + | 
sfertig ? 

‚nein, weiter 


EEEE EREE HEEE REEE 


8 Bytes rechts schieben 


Eing.: A = Anzahl der zu versch. Bits 
HL = Adresse MSB d. zu versch. Bereichs 


LD 
PUSH 
SUB 
JR 


= Inhalt MSB 


(HL); € 
HL 
8 
C: 0D7DH 


;MSB abspeichern 
ıMSB-Adresse auf Stack 
mehr als 8 Verschiebungen? 
nein | 


BDF 
2D78 
8071 


0074 
8075 


8076 
0077 
2078 
8079 
2078 


oD7D 
BD7F 
ansa 
3D81 
0082 
8083 
2084 
8085 
0087 
8088 
2089 
BDBA 
2D88 
anec 
DDBE 


8098 
8093 
8095 


8097 
2099 
209A 


El 
E5 
11 08 08 


4E 


59 
2B 
15 
20 F9 
18 EE 


C 09 


21 23 79 
16 81 
i8 ED 


BE 08 
7E 
17 


POP HL ‚Adresse aus Stack zurück 

PUSH HL und wieder auf Stack 

LD DE, 0800H ‚Bytezähler = 8B (D) 
iZwischenspeicher löschen (E) 

LD Cy (HL) ‘Ryte nach C laden 

LD (HL),E sletztes Byte aus Zwischenspeicher 
jeintragen 

LD EC ‚Byte aus C in Zwischenspeicher 

DEC HL sAdresszeiger - 1 

DEC D ;Butezähler - 1 

JR NZ,2D74H ‚fertig ? nein-zurück 

JR BD&BH ‚nächste Byteverschiebung 

ADD A? ıBitverschiebungen + I 

LD D,A şin D 

KÜR A ‚Carry löschen 

POP HL ;Adresszeiger aus Stack laden 

DEC D ‚noch eine Verschiebung ? 

RET Z ‚nein, fertig 

PUSH HL ‚Adresszeiger retten 

LD E,8 ‚Bytezähler = 8 

LD Às (HL) Byte laden 

RRA si Bit rechts schieben 

LD (HL) À jund zurück in Speicher 

DEC HL Adresszeiger -1 

DEC E ‚Bytezähler -1 

JR NZ, 2D87H ;fertig ? nein-zurück 

JR BD8BH ‚nächste Bitverschiebung 


EERE HE JE i EIEEE AEE AE dE EEE EAE AEE EEEE EE EHHH 


X - Register um I Bit rechts schieben 


LD HL, 7923H (MSB X adressieren 
LD Di sBitzähler = I 
JR BD84H weiter bei BDB4H 


FERAE AEAEE IEE AEAEE AEE EHEAR EAE AE EEEE AE EEEE AEE EEE 


Speicherbereich 1 Bit links schieben 
Eing.: HL = Anfangsadresse des Bereichs 
Carry = nachzuschiebendes Bit 


LD 6,8 ;Bytezähler = 8 
LD A (HL) Byte laden 
RLA ‚nach links schieben 
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8098 
BDIC 
BDID 
209E 
BDAB 


BDA1 
ODA4 
8045 
BDAB 


BDAB 
BDAC 
BDAD 
DAF 
8DBa 
anBi 
BDBZ 
ODB3 
BDB5 
2087 


8037 
aDBA 
DBD 
enca 
Boci 
8DC2 
8063 
8065 
aDC 
BDC? 
0069 
ance 
BOCH 
80D2 


77 


AD 
20 F9 
[9 


cD 55 09 


CD OA 89 
cD 39 BE 


28 17 

BE 88 

65 

1F 

47 

DC 33 0D 
cD 90 2D 
78 

ci 

aD 

28 F2 

Di 

© 

20 Eb 

c3 D8 &C 
21 23 79 
cD 70 0D 
18 Fi 


LD IHL); A jund zurock in Speicher 
INC HL sAdresszeiger + I 

DEC £ ;Bytezähler - 1 

JR NZ, 0099H sfertig ? nein-zuruck 
RET 


RN 


Multiplikation doppelter Genauigkeit 
Eing.: X = Faktor 


Y= Faktor 
Ausg.: X = Produkt 
CALL 0955H si. Faktor = 07 
RET l iJa, fertig 
CALL  BIBAH Exponent und Vorzeichen verarb. 
CALL  BEJ9H ‚Mantisse 1.Faktor aus X nach 414A- 
34150 übertragen, X löschen. 
ŁD (HL); C SLSB X löschen 
ING DE ‚Adresse LSB 1. Faktor 
LD B,7 ‚Bytezähler = 7 
LD À, (DE) ‚Byte von i. Faktor laden 
INC DE sAdresszeiger 1. Faktor + 1 
OR A 08? 
PUSH DE sAdresszeiger auf Stack 
JR Z,BDCCH Byte ist B! 
LD C8 snicht @, Bitzähler = 8 
PUSH BC Bitzähler retten 
RRA ‚nächstes Bit gesetzt? 
LD BA iByte in B übertragen 
CALL (6880334 ja, 2. Faktor auf X addieren 
CALL  GDI0H ‚X ein Bit rechts rotieren 
LD AB sByte von B wieder in A zurück 
POP BC ;Bytezähler wieder laden 
DEC £ ‘Byte fertig bearbeitet? 
JR NZ,BDB7H inein, nächstes Bit 
POP DE ‚Adresszeiger wieder laden 
DEC B salle 7 Bytes bearbeitet? 
JR NZ, BDAFH nein, nächstes Byte 
JP BCDEH ¿zur Normalisierung 
LD HL, 7923H ‘Ergebnis um 1 Byte rechtsschieben 
CALL 8078 
JR BDC5H nächstes Byte 


ERREI Ee AE E E AEE EE E EEEE E e EEEE 
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2004 
2DD8 


BDDC 
BDDF 
BDEŻ 


BDES 
BDER 
2DE9 
BDEC 
BDEF 
ADF 
BDF 1 


ODF4 
2DF7 
BDF8 
0DF? 
ADFC 
BDFF 
BEB? 
BERI 
BEB4 
BEB5 
BEBT 


DERA 


BEAD 
BEIB 
BELI 
BEI2 
BEI3 


22 20 20 08 
OE 00 20 84 


i1 D4 BD 
21 27 79 
CD D3 89 


3A 2E 79 
B7 
CA JA 19 
cD 07 89 
34 
34 
CD 39 BE 


21 51 79 
7 

4 

ii 4A 79 
212779 
CD 4B 0D 
1A 

99 

FF 

38 0B 

11 4A 79 
21 2779 
CD 39 0D 
AF 

DA 

12 

u 


Konstante 10 idopp, üenauigkeit) 
Konstante 10 {einf. Genauigkeit) 


EEREEREEEEEREKEE KERERE EEEE E 


Division durch 10 mit doppelter Genauigkeit 
Eing.: X = Divident 
Ausg.® X = Quotient 


LD DE, BDD4H Adresse der Konstante IQ laden 
LD HL, 7927H jAdresse von Y laden 
CALL  A9D3H ‚Konstante iB in Y 


RR 


Divısion mit doppelter Genauigkeit 
Eing.: X = Divident 


Y = Divisor 

Ausg.: X = Quotient 

LD Ay (792EH) ‚Divisor =8 ? 

OR Á 

JP 2, 199AH Ja, DIVISION BY ZERO - Error 

CALL 0907H- Vorzeichen und Exponent verarb. 

INC HL Exponent-Korrektur (+2) 

INC HL 18987 erg. Exp X - Exp Y - 1) 

CALL  BE39H ‚Divident in Bereich 414A-4150. 
$X fur Ergebnis löschen 

LD HL, 7951# shöchstw. Byte des Dividenten = Ø 

LD (HLI,C 

LD B,C Flag löschen 

LD DE, 794AH Divident adressieren 

LD HL, 7927H {Divisor adressieren 

CALL  BD4BH ‚Divident-Divisor in Divident 

LD À, (DE?) ıMSB Divident laden 

SBE ÂC ı Larry (C=B) 

CCF ‚Carry invertieren, Unterlauf? 

JR C„BEIZH nein, i in Ergebnis schieben 

LD DE, 794AH Ja, Subtraktion rückgängig machen 

LD HL» 7927H ‚DE=Divident, HL=Divisor 

CALL  BD39H Divident + Divisor in Divident 

XOR À ‚Larry löschen 

DEFB BDAH JP CB412H Dummy, wird nie ausgef 

LD (DE), A ;MSB Divident speichern 

INC B ;Flag setzen 
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BEl4 
E17 
%18 
BEII 
BEIA 
BEID 
BEIE 
BE2I 
BE23 


BE26 
0E29 
BEZE 
BE2D 
BEZE 
BESB 
E33 
E34 
BEJA 


039 
BEIA 
BEID 
BEJE 
BEA 


BE4h 
BE4S 
BE4h 
BEAT 
E48 
E49 
BESA 
BEAC 


JA 23 79 
st 

3D 

if 

FA 11 BD 
17 

21 iD 79 
BE 87 

CD 99 BD 


21 4A 79 
cD 97 8D 
78 

B7 

28 69 

21 24 79 
35 

203 

(3 B2 87 


79 
32 2D 79 
23 
11 58 79 
Bi 88 97 


TE 
12 
7i 
18 
28 
85 
20 F8 
c? 


LD As (7923H) MSB Ergebnis laden 
INC À ‚Bit 7 gesetzt ? 
DET À 
RRA sermitteltes Bit in A(7) zum runden 
JP N,BDIIH sfertig, zur Rundung 
RLA ‚Bit wieder in Carry schieben 
LD HL, 791DH sL5B Ergebnis (X) adressieren 
LD 67 ;Bytezähler = 7 
CALL  8D99H Ergebnis links rotieren, 
‚Bit einschieben. 
LD HL, 794 AH Adresse Divident 
CALL  BD97H Divident i Bit links rotieren 
LD A,B Flag gesetzt ? 
OR A 
JR NZ, BDFIH ija, weiter 
LD HL, 7924H snein, Exponent Ergebnis - I 
DEC (HL?) Unterlauf ? 
JR NZ, BDFIH ‚nein, weiter 
JP B7B2H sja, OVERFLOW - Error 


FERAE AE HE HEE FE FE HEE HE EHE AE E AE FEAE AE AE HE FEE FE EAE EAE AEAEE WEE EEE 


Unterprograms für Multiplikation und Division 
doppelter Genauigkeit 


LD Art ıMSB Y in Speicher 

LD (79204), A 

DEC HL Adresse MSR X laden 

LD DE, 7958H ‚Zeiger auf Hilfsregister 

LD BC, 0700H 3X in Hilfsregister ubertragen 
‘X löschen, Bytezähler = 7 

LD A (HL) ;Byte aus X laden 

LD (DE); À şin Hilfsregister 

LD (HL); € jByte in X löschen 

DEC DE Adresszeiger -1 

DEC HL 

DEC B iBytezähler - 1 

JR NZ, BE44H ıfertig 7 nein-zuruck 

RET 


FEE AAE AEAEE IEE EAE AEE EE E AEE AE ER 


Muitiplikation doppelter Genauigkeit mit 18 
Eing.: X = Faktor 
Ausg.: X = Produkt 
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BEAD 
BESB 


BES2 
BES3 
0E5354 
BESS 
BES? 
BESA 
BESB 
Best 
BESF 
BER 
BEGI 
BEbZ 


BE6S 
BE6B 
BEGB 


BESC 


BED 
REGE 


0E71 
BE72 
BE73 
BE76 
BE77 
E78 
BE7A 
BETB 
BETE 


CD FC 89 
EB 
2B 


C3 B2 07 


cD 78 87 
CD EC 0A 
F6 AF 


FE 2B 


CALL 
EX 
DEC 
LD 
OR 
RET 
ADD 
JP 
LD 
PUSH 
CALL 
POP 
INC 
RET 
JP 


BIFCH 
DE,HL 
HL 

Ar (HL) 
A 

Z 

Ay2 

61, 87BZH 
(HL) A 
HL 
BC77H 
HL 
(HL) 
NZ 
0782H 


‚X nach Y ubertragen 
Adresse Exponent X laden 


Faktor inX=97 


ida; Ergebnis = 0 

jExponent X + 2 {Faktor * 4) 
süberlauf 7 ja, ÖVERFLÜW - Error 
;Exrponent X zuruckspeichern 
Adresse Exponent X auf Stack 

1X + Y nach X (X = Faktor * 5) 
Adresse Exponent X vom Stack 
sExponent X + 1 {X = Faktor * 18) 
jüberlauf? nein-fertig 

ida, OVERFLOW - Error 


TRIER 


String in Zahl doppelter Genauigkeit umwandeln 
Eing.: HL = Adresse des Strings 
Ausg.: X = Zahl 


CALL 
CALL 
OR 


0778H 
BAECH 
BAFH 


x=: 
;Typ = doppelte Genauigkeit 
sZero-Flag = 8 


FREIE dE de Edt EdE dé IE EE EAE EEE FE F E E edee EE E EE EE 


String in Zahl passenden Typs umwandeln 
Eing.: HL = Adresse des Strings 


Ausg. : 


XOR 


EX 
LD 


LD 
LD 
CALL 
EX 
LD 
cP 
PUSH 
JP 
cP 


X = Zahl 


A 


DE, HL 
BC,BOFFH 


HB 
LB 

1, BA9AH 
DE,HL 
Às (KL) 
2DH 

AF 

7, BEBSH 
2BH 
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izero-Flag = i 

s(Byte auch im Befehl EöB) 
jAdresszeiger in DE 
}Nachkommastellen = 8 

pa’ -Flag = FF 

SHL = 0 


sAnsprung bei BESC? ja, Typ=integer 
‚Adresszeiger wieder ın HL 

Zeichen laden 

2'727 3ja- Iflag=1i 

Flag auf Stack 


}Ja, nächstes Zeichen 
;= z4? ? 


ESA 
BER? 
E83 
E 
BEBT 
BER? 
BEBC 
BEBE 
BE98 
0E92 
%95 
BEI? 
BEIA 
BEIC 
BEIF 
GEAL 


QEAJ 
QEA4 
BEA7 
BEAS 
BEAB 
BEAC 
BEAD 
BEAE 
DERB 
BEBI 
BEBI 


BEBS 
BEB7 
GEBE 
BEBA 
GEBR 
BERC 
BEBD 
BEBE 
BECI 
BECZ 
DECA 
BECS 
DEC 
BEC7 


28 Bi 

2B 

D7 

DA 29 OF 
FE 2E 

CA E4 0E 
FE 45 

28 14 

FE 25 

CA EE BE 
FE 23 

CA F5 BE 
FE 21 

CA Få QE 
FE 44 

20 24 


B7 

CD FB BE 
E5 

2i BD BE 
E3 

D7 

15 

FE CE 


FE 2D 


14 

FE CD 
CB 

FE 2B 
c8 

2B 

Fi 

D7 

DA 94 OF 
14 

28 83 


93 
SF 
E5 


JR 2, BEBIH 
DEC HL 

RST 10H 

JP CH BF29H 
cP ZEH 

JP I, BEE4H 
CP 45H 

JR I,BEA4 
cp 25H 

JP Z, EEEH 
CP 23H 

JP BEFSH 
CP ziH 

JP Z, BEF6H 
cP 44H 


JR NZ, BECTH 


Exponent ermitteln 
OR À 


CALL  BEFBH 
PUSH HL 

LD HL, BERDH 
EX (SP), HL 
RST 18H 

DEC D 

cP BCEH 
RET 2 

CP ZDH 

RET Z 

INC D 

CP CDH 
RET 2 

CP ZBH 

RET Z 

DEC HL 

POP Ar. 
RST 18H 

JP C,BFI4H 
INC D 

JR NZ, BEC7H 
XOR A 

SUB E 

iD E,A 
PUSH HL 
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tja, nächstes Zeichen 

ikein Vorzeichen, Zeiger - I 
ifolgt eine Ziffer? 

ija! 


‚Flag fur Typanpassung setzen 

Zahl in einf. o. dopp. Genauigkeit 
jAdresszeiger retten 
;Rucksprungadresse laden 

sim Stack mit Adr.zeiger tauschen 
‚nächstes Zeichen 

Exp. -Vorz.-Flag auf ’-’ 

;= ’-’7 (Token) 

Ja! 

13’? 

şa! 

Exp. -Vorz.-Flag auf ’+’ 

‚= 7+? (Token) 

jja! 

= 14:7 

jja! 

ikein Vorzeichen, Adr.zeiger zur. 
}Rucksprungadresse vor Stack entf. 
nächstes Zeichen laden 

sliffer ? ja-weiter bei BFI4H 
‚nein, Exp. -Vorz.-Flag = ’-’ ? 

$ 
$ 


Jar ieaiai invertieren 


sung zuruck in E 
jAdresszeiger retten 


BECH 
BECI 
DECA 
BECD 
QED 
BEDZ 
BEDI 
BED4 
BEDS 
BEDB 
BEDF 
BEDA 
BEDR 
BEDC 
BEDF 
BEEG 


QEE3 


BEE4 
BEES 
BEEG 
BEEB 


BEEE 
BEEE 
BEEF 


BEFZ 
BEFS 


BEFS 


BEF6 
BEF? 


78 

39 

FA BA OF 
FC 18 BF 
28 Fö 

Ei 

Fi 

E5 

CC 78 89 
Ei 

E7 

EB 

E5 

21 90 88 
E5 

CD A3 BA 


c9 


E7 

ac 

20 DF 

DE FB BE 


C3 83 QE 
E7 
F2 97 19 


23 
i8 D2 


B7 


CD FB BE 
18 F7 


LD ÂE jExponent-Nachkonmastellen 

SUR B Differenz >97 

CALL  P,BFBAH Jā, Zahi*žið®, Differenz - 1 

CALL M OFiBH jnein, Zahl/id, Differenz + I 

JR NZ, BECAH wiederholen, bis Differenz = 

POP HL jAdresszeiger laden 

Für AF ;Vorzeichen-Flag laden 

PUSH HL Ädresszeiger wieder auf Stack 

CALL  Z:897BH sVorzeichen-Flag= -77 jay X= -X 

POP HL Ädresszeiger zurück 

RST ZUH Typ testen 

RET PE {doppelte Senauigk.? ja-fertig 

PUSH HL ‚Adresszeiger auf Stack 

LD His 0878H ‚Rucksprungadresse auf Stack 

PUSH HL 

CALL  BAASH jeinf. Genauigkeit, wenn möglich, 
jin Integer umwandeln. 

RET weiter bei 0898H 


Dezimalpunkt verarbeiten 


RST 20H ;Typ testen 
INC c i’.’-Fiag = 8? (war schon ein ’.'’?) 
JR NZ, BEC7H idas fertig 
CALL C BEFBH jeinf. Genauigkeit! 
‚Integer in einf. Genauigkeit um. 
JP BEBSH nächstes Zeichen 
H gefunden 
RST 20H ;Typ testen 
JP P, 1997H ;kein Integer, SYNTAX - Error 
INC HL sAdresszeiger + 1 
JR BECTH fertig! 
’4’ gefunden 
OR A Flag fur Typanpassung setzen 
’i° gefunden 
CALL  BEFBH X in einf. o. dopp. Genauigk. umu. 
JR QEF 2H jweiter bei BEFZ2H 


TRITT 


Zahl in einfache oder doppelte Genauigkeit umwandeln 
Eing.: X = Ausgangszahl 
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BEFR 
EFC 
BEFD 
BEFE 
BEFF 
Faz 
FB3 
OFB 
ara? 
OF B8 
BFDI 


BFBA 
DFOB 
Foc 
BFOD 
BFBE 
Brill 
0F12 
15 
Øi 
F17 


OF 18 
OF19 
BFIA 
BFiB 
Brit 
BF1D 
28 


CC Bi MA 


Ch DB BA 


Z-Fiag = 1 Umwandlung in einfache Genauigkeit 
Z-Flag = ® Umwandlung in doppelte Genauigkeit 
Ausg.: X = Ergebnis 


PUSH HL Register auf Stack retten 

PUSH DE 

PUSH BC 

PUSH AF Flag retten 

CALL  2,0ABIH ‚2-Flag=i, in einf. Gen. umwandeln 
POP AF Flag wieder laden 

CALL N2, BADBH »2-Flag=®, in dopp. Gen. umwandeln 
POP BC Register wiederherstelien 

POP DE 

POP HL 

RET 


HEREA KERE E EAE EE E FEFE E EE E EE EEEE EEE 


Reele Zahl mit IB multiplizieren 
Eing.® X = Ausgangswert 


2-Flag = 8 
Ausg.: X = Produkt 
RET Z sZ-Flag = 19, zurück 
PUSH AF 3A auf Stack 
RST 20H ;Typ testen 
PUSH AF ıTyp-Flag merken 
CALL  PO,BIIEH scdopp.Gen.? => + 10 
PUSH A ıTyp-Flag wieder laden 
CALL  PE,BE4DH seinf.6Gen.? => * 18 
POP Ar A-Reg wiederherstellen 
DEC À A-1 


RET 


FERE EAEE E RAE IEE IAE IEEE E HE AE HE EAE AE AE ME AEREE He AE EE Eee EE 


Reele Zahl durch 10 dividieren 


Eing.: X = Ausgangswert 

Ausg.: X = Quotient 

PUSH DE Register retten 

PUSH HL 

PUSH AF 

RST 28H Typ testen 

PUSH AF ;Typ-Flag sichern 

CALL PO, 8897H ;Typ=einf.ben.? => /18 
POP AF iTyp-Flag laden 
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Br2i 
ar24 
0F25 
OF 26 
F27 
OF 28 


BF29 
BFZA 
F28 
BF2C 
GF 2D 
OF 2E 
OF 2F 
OF 3B 
QF32 
Br 33 
BF 34 


Br37 
BF3A 
BF3D 
BFE 
OF 40 
F41 
OF42 
OF43 
DF 44 
0F45 


F48 


EC DC BD 
Fi 
El 
Di 
s 
{9 


F2SD er 


2A 21 79 
11 CD BC 


CALL  BDDCH 
POP AF 
POP HL 
POP DE 
INC A 

RET 


i Typ=dopp. Gen. ? => /10 
;Registerinhalte wiederherstellen 


Art 


TIERE ER E 


liffer verarbeiten 


PUSH DE 

LD AB 

ADC Act 

LD BA 

PUSH BC 

PUSK HL 

LD As (HL) 
SUB JOH 

PUSH AF 

RST 20H 

JP P, OF5DH 
Integer 

LD HL, (7921H) 
LD DE, BCCDH 
RST 18H 

JR NC, OF59H 
LD D,H 

LD EL 

ADD HL HL 
ADD HL, HL 
ADD HL, DE 
ADD Hi, DE 
POP AF 

LD GA 

ADD HL,BC 

LD ÀH 

OR A 

JP M,BF57H 
LD (7921H), HL 
POP HL 

POP BC 

PoP DE 

JP ESIH 
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iExp. -Vorz. -Flag u. Exponent retten 
Nachkommast. + 1, wenn ’.’-Flag B 
{Carry ist gesetzt) 

sinB 

Nachkommast. und Flag retten 
;Adresszeiger retten 

Ziffer laden 

Zonenteil entfernen 

sbereinigte Ziffer auf Stack 

;Typ testen 

seinf. o. dopp. Genauigkeit ! 


iWert aus X laden 

s?= 3277 ? (d.h. 18 # X 3=32778) 
ıDE mit HL vergleichen 

1Ja, in einf. Genauigkeit umwand. 
Zahl ait 18 multiplizieren 


1*2 

#4 

15 

;+ 10 

Ziffer wieder laden 
sin BC (B = 9) 

‚und auf Zahl addieren 
‚neue Zahl > 32767 ? 


Ja, in einf. Genauigkeit ums. 
‚neue Zahl zurück in X 
;Adresszeiger wieder laden 
Nachkommast. + Flag zurück 
jExp.-Vorz.-Flag + Exponent zurück 
nächstes Zeichen 


8r57 
GF 58 
F59 
erst 


ars) 


BFSF 
BF&2 
BF65 
BF&B 
BF&B 
BF6E 
BFF 


OF 74 
BF77 
OF7A 
BF7D 
BFTE 
BFB 
BFB4 
8F87 


8r89 
FBC 
FaF 
0r98 
F91 


8794 


79 
F5 
CD CC BA 
37 


30 18 


Bi 74 94 
11 BB 24 
CD RC 8A 
F2 74 QF 
cD 3E 09 
Fi 

CD BI Ur 
i8 DD 


CD E3 BA 
CD 4D BE 
cD FC 89 


CD 64 87 
CD E3 BA 
cD 77 0C 
18 CE 


CD As 09 
CD 64 89 


7B 


LD 
PUSH 
CALL 
SCF 


JR 


Zahl 
LD 
LD 
CALL 
JP 
CALL 
POP 
CALL 
JR 


Zahl 
CALL 
CALL 
CALL 
POP 

CALL 


CALL 


CALL 
IR 


À Ziffer retten 
àF 
BACCH ;HL in einf. Genauigkeit ums. 


in.Sprungbefehl ignorieren 


NC,BF7TH söoppelte Genauigkeit ? ja-Sprung! 


einfacher Genauigkeit 


BC, 9474H Konstante 1E6 in Y 

DE , 2400H 

BABCH Zahl >= 1E6 ? 

P,@F74H iJa, in dopp. Genauigk. umwandeln 
BIZEH ‚Zahl * 18 

AF Ziffer wieder laden 

BFEIH jund zur Zahl addieren 

BFSIH jzuruck 


doppelter Genauigkeit 


BAESH ;Zahl in dopp. Genauigk. umwandeln 
BE4DH Zahl * 18 

BIFCH Zahl nach Y übertragen 

AF sZiffer laden 

2964H jin X übertragen 

BAESH sin dopr. Genauigkeit umwandeln 
8C77H sund auf Zahl addieren 

BFSIH jzuruck 


RERE EREE E E E EEEE dE e E de de dE dE RERR 


B Bit Integer auf Zahl einfacher Genauigkeit addieren 
Eing,: X = 1. Suamand (einf. Genauigk.) 


Ausg. : 


CALL 
CALL 
POP 
POP 
JP 


A= 2, Summand (8-Bit Integer mit Vorzeichen) 


X = Summe 

BIA4H si. Summand auf Stack retten 
B964H 2. Summand mit einf. Gen. in X 
BC i1. Summand vom Stack in Y 

DE 

0716H Summe bilden 


EREEREER eee EEEE EEE E 


Exponenten - Ziffer verarbeiten 


iD 


À E Exponent >} ? 7 
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F95 
Br97 
Br99 
OFFA 
BFIB 
ar 
ars 
OFE 
BFAB 
BFAI 
BFAZ 
BFA4 


OFA? 
OFAB 
OFAR 
BFAE 


BFAF 
OrB2 
BFBI 
OFB6 
BFB7 
BFBA 


FE BA 
Ja 09 
B7 

27 

a3 

B7 

86 

Do 30 
SF 

FA 

IE 32 
C3 BD 0E 


E5 
21 24 19 
CD A7 28 
Ei 


CD IA BA 
AF 
CD 34 10 
Bó 
cD DI BF 
(3 Ab 28 


CP 18 

IR NCHBFAZH 13a, überlauf erzeugen 

RLCA Exponent * 18 

RLCA 

ADD Å E 

RLCA 

ADD Ás (HL? ‚Zeichen addieren 

SUB JOH Zonenteil eliminieren 

LD EA ;= neuer Exponent 

DEFB  BFAH ıJP M,3Z1EH Dummy, wird nie ausgef. 
LD E, 32H ;Exponent = 32, ruft überlauf herv. 
JP BEBDH ‚nächste Ziffer verarbeiten 


rn 


Zur Ergänzung einer Fehlermeldung 
’ IN ’ Zeilennummer ausgeben 
Eing.: HL = Zeilennummer 


PUSH HL Zeilennummer auf Stack 

LD HL, 1924H ;Textadresse ’IN’ laden 
CALL  ZBA7H ;Text ausgeben 

PÜP HL ;Zeilennummer wieder laden 


Zeilennummer ausgeben 
Eing.: HL = Zeilennummer 


CALL  BAIAH ;Zeilennumser als Integer in X 

XOR À ‚Format-Flag löschen 

CALL 1034H ‚speichern u. Puffer initialisieren 
OR {HL) ‚X als Integer ohne Vorzeichen 

CALL  BFDIH sin String umwandeln 

JP 28A6H ‚String ausgeben 


RR 


Zahl in foraatierten String umwandeln 
Eing.! X = Zahl 
A = Format-Flag 
Bit 8 - Exponentenausgabe 
Bit I - nicht verwendet 
Bit 2 - Vorzeichen hinter Zahl 
Bit 3 - ’+’ auch ausgeben 
Bit 4 - ’$’ vor Zahl ausgeben 
Bit 5 - führende Leerzeichen durch ’*’ ersetz. 
Bit & - ’,’ zur Tausender-Trennung ausgeben 
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BFBE 


BFC 
Barca 
BFCH 
art? 
BFCB 
BFCB 
BFCC 
AFCF 
BrDi 
BFDZ 
BrD3 
BFD6 
BFD7 
FDE 
BFD? 


BFDC 
BFDF 
BFEB 
BFEI 
BFE4 
BFE7 
OFEA 
OFEC 


BFEF 
BFF2 


BrF5 
OFF8 
BFF9 
BFFB 
BFFE 
OFFF 
188i 
1803 


FE 84 
D2 3D 18 


81 28 
CD 2F 13 


21 38 79 
46 

BE 28 
JA DB 78 
IF 

E6 28 
28 07 

78 


Bit 7 - Formatierung durchführen 
B = Anzahl der Vorkommastellen 
C = Anzahl der Nachkommastellen + 1 (für ’.’) 
Ausg.: (HL)... = formatierter String mit K’OR’ abgeschi. 


CALL 1034H Pufferanfang (79304) adressieren 
;Format-Flag in 78D8H 

AND B ı +’ ausgeben ? 

JR Z1BFC7H jnein! 

LD {HL}, 2BH Pe in Puffer 

EX DE,HL ‚Pufferzeiger in DE 

CALL 0994H Hahl >= 87 

EX DE,HL ıPufferzeiger wieder in HL 

JP P OF DOH jja! 

LD (HL), 2DH y oain Puffer 

PUSH BC sLängen-Parameter auf Stack 

PUSH HL ;Pufferzeiger auf Stack 

CALL  B97BH Vorzeichen entfernen 

POP HL ;Pufferzeiger laden 

POP BC ıLängen-Parameter laden 

OR H ‚Null-Flag zurücksetzen 

INC HL ;Pufferzeiger hinter Vorzeichen 

LD {HL), ’B’ PO in Puffer 

LD ÀA, (7808H) ;Format-Flag in D 

LD DA 

RLA ‚Formatierung durchführen? 

LD Ay {7BAFH) Typ laden 

JP C, 189AH jja ! 

JP Z, 1092H Zahl = 8, fertig 

CP 4 seinf. 0. dopp. Genauigkeit? 

JP NC, 183DH sja! 

Integer in String umwandeln 

LD BC, B ‚Parameter fur ’.’ u, °,’ löschen 

CALL  132FH ‚String erzeugen 


Format-Flag Bits 2-5 verarbeiten 


LD HL, 7730H ;Pufferzeiger auf Anfang 

LD B, (HL? ‚Vorzeichen laden 

LD Ge ? Leerzeichen nach Fullzeichen 
LD A, (7BDEH) ‚Format-Flag laden 

LD EA sin E 

AND 20H imit ’* ausfüllen? (Bit 5) 
JR 2, 1OBAH nein: 

LD AB Vorzeichen = Leerzeichen? 
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1804 
1205 
1887 
18097 
100A 
1088 
180c 
100E 
1818 
1812 
1814 
1816 
1818 
1B1A 
1B1C 
IME 
1828 
1822 
1023 
1825 
1826 
1828 
102A 
1828 
102D 
102E 
1838 
1831 
1032 
1833 


1034 
1837 
103A 
183c 


1830 


1803F 
1848 
1842 


89 
BE 2A 
20 Bi 
4 
7i 
D7 
28 14 
FE 45 
28 18 
FE 44 
28 0 
FE 38 
28 FO 
FE 2C 
28 EC 
FE 2E 
28 83 
2B 
36 38 
78 
E6 18 
28 03 
ZB 
36 24 
78 
E6 B4 


78 
c? 


32 D8 78 
21 38 79 
3b 28 

(9 


FE 85 


E3 
DE 88 
17 


cP £ 

LD C, ZAH ;Fullzeichen = ’# 

JR NZ, LBBAH ‚nein‘ 

LD Bc Vorzeichen = Füllzeichen 

LD (RL), C jFüllzeichen in Puffer 

RST 10H nächstes Zeichen = Zeilenende ? 
JR Z, 1022H ija, nicht weiter füllen 

cP 45H ‚=Exp.kennung f. einf.Genauigk.? 
JR I, 1B22H Ja, nicht weiter fullen 

CP 44H i=Exp.kennung f. dopp.Genauigk.? 
JR 2, 1022H şdas nicht weiter fullen 

cP 38H H p? 

JR Z, 10BAH Ja, weiterfullen 

cP ZEH =? 

JR 2, 1BBAH iJa, weiterfullen 

CP 2EH rd 

JR NZ, 1025H nein, nicht weiter fullen 

DEC HL ivor ‘sp E u ’D’ eine ’®’ einf. 
LD (HL) 0 i 

LD AE ;Dollarzeichen vor Zahl ? 

AND 18H ‚(Bit 4 des Format-Flags) 

JR 2, 182DH jnein! 

DEC HL ;Pufferzeiger - i1 

LD {HL I, ’$’ r$ in Puffer 

LD ÀE Worzeichen hinter die Zahl? 
AND 4 {Bit 2 des Format-Flags) 

RET NZ tja, zuruck 

DEC HL iPufferzeiger vor Zahl 

LD (HL); B Vorzeichen vor die Zahl 

RET 

Puffer initialisieren und Format-Flag speichern 

LD (78D8H) ,A ;Format-Flag speichern 

LD HL, 7938H iPufferanfang adressieren 

LD (KL)? >? Leerzeichen an Pufferanfang 

RET i 


Zahi einfacher oder doppelter Genauigkeit 
unformatiert in String umwandeln. 


{pP 5 sAnzahl Stellen ermitteln 
jeinfache Genauigk.? Carry=i 

PUSH HL ;Pufferzeiger auf Stack 

SBt G Typ - Carry in À 

RLA ;* 2 = Anzahl Stellen 
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1843 
1844 
1845 
1848 
1848 
184C 
1B4F 
1858 
1851 
1853 
1854 
1855 
1857 
1859 
185A 
1858 
105E 
1868 
1863 
1866 
1867 
1868 
106A 
iBA 
106E 
1871 
1872 
1874 
1875 
1876 
1878 
1879 
107A 
1078 
1876 
107E 
1881 
1083 
1894 
1885 
1897 
1898 
105A 


57 

14 

CD Bi 12 
ai 0a g3 
82 

FA 57 18 
14 

BA 

38 24 

3c 

47 

JE BZ 
D6 82 

Ei 

F5 

cD 9i 12 
3 38 

CC C9 89 
CD A4 12 
ZB 

7E 

FE 30 

28 FA 

FE 2E 

Ch 09 9 
Fi 

28 1F 

F5 

E7 

JE 22 

gr 

77 

23 

Fi 

36 2B 

F2 85 10 
36 2D) 

zF 

36 

Bo 2F 

Bá 

D& BA 

J0 FR 


LD 
INC 
CALL 
LD 
ADD 
JP 
INC 
CP 
JR 
INC 
LD 
LD 
SUB 
POP 
PUSH 
CALL 
LD 
CALL 
CALL 
DEC 
LD 
CP 
JR 
cP 
CALL 
POP 
JR 
PUSH 
RST 
LD 
ADC 
LD 
INC 
PoP 
LD 
JP 
LD 
CPL 
INC 
iD 
ING 
SUB 
JR 


DA 

p 

1201H 
BC, B3IBAH 
AD 

M, 1057H 
D 

D 

NC, 1057K 
À 

BA 

a2 

HL 

AF 
1291H 
(H) g? 
2, B9C9H 
12A4H 
HL 

Â (HL?) 
9? 

2, 1B66H 
2EH 

NZ, BICHH 
AF 

Z, 1093H 
AF 

20H 

À, 22H 
AA 
(HLJ À 
HL 

AF 

{HL}, ’+’ 
P, 1085H 
(HL); =? 


A 

B, 2FH 

B 

18 

NC, 1067H 
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steinf,. = 6, dopp. = 16) 
‚Anzahl Stellen ın D 

iti 

‚ider Exponent ermitteln, 
;Parameter für ’.’ und ’,’ setzen 
ıExponent + 23=8? 

‚nein, Exponent in Puffer 
‚Anzahl Stellen + Z ın D 
‚Exponent < Anzahl Stellen ? 
‚nein, Exponent in Puffer 

iJa, Exponent +3 = Dezimalpunkt 


‚es wird kein Exponent ausgegeben 
jExponent - Z ın A 

;Pufferzeiger wieder laden 
;Exponent auf Stack 

a’ und ’,’ setzen 

Pe in Puffer 

I’. gesetzt 7 ja, Pufferzeiger + i 
;Mantisse in String umwandeln 
‚Pufferzeiger - 1 

Zeichen laden 

H p? 

ida, weiter 

‚vor der letzten Null ’.’? 

‚nein! Pufferzeiger + i 

Exponent laden. = 8 ? 

ıJa, kein Exponent in Puffer 
‚Exponent wieder auf Stack 

Typ testen, bei einf. Gen. Carry=i 
9D / 2 laden 

sExp.kennung = ’D’ oder ’E’ 

sin Puffer eintragen 

;Pufferzeiger + I 

‚Exponent laden. < B? 

PE in Puffer 

Exponent > Ọ! 

s in Puffer 

Vorzeichen entfernen 


Ziffer = P -i 

sZiffer + i (ergibt 1. Ziffer) 
Exponent - IB = Unterlauf? 
jRein, weiter 


108C 


188E 
1086F 
1898 
1891 
1892 
1893 
1895 
1096 
1099 


109A 
1098 
1096 
109E 
1809F 


1842 
18AJ3 
18A6 


1849 
18AC 
10AD 
IBAE 
1088 
1083 
10B6 
1087 
1888 
10BB 
108C 
10BF 


18C8 


1863 
1864 
1866 


23 

J6 88 
EB 

21 38 79 
c9 


23 

c5 

FE 84 
7A 

D2 09 i1 


iF 
DA Ag 11 
B B3 B 


cD 89 12 
Di 

7A 

D6 85 

F4 69 12 
CD 2F 13 
TB 

B7 

cc 2F 89 
3D 

Fó 69 12 
E5 


cD F5 OF 


Ei 
28 0% 
70 


RET 


Ay 3An 


HL 
IHL) Ë 
HL 
IHL); A 
HL 
iHL),d 
DE,HL 
HL, 7730H 


jJa, letzte Subtraktion ruckgangig 
machen. t O ergibt 2. Ziffer 
‚Pufferzeiger + | 

ii. Ziffer ın Puffer 
‚Pufferzeiger + 1 

i2. Ziffer in Puffer 
;Pufferzeiger + | 

‚Endekennung in Puffer 
iPufferendadresse in DE 
ıPufferanfangsadresse in HL 
fertig !i 


Formatierten String erzeugen 


INC 
PUSH 
CP 
LD 
JP 


HL 

BC 

4 

AD 

NC, 1109H 


iPufferzeiger + 1| 
iLängen-Parameter auf Stack 
jeinfache 0. doppelte Genauigkeit? 
ıFormat-Flag in A 

jja! 


Integer in String umwandeln 


RRA 
JP 
LD 


CALL 
POP 
LD 
SUB 
CALL 
CALL 
LD 
OR 
CALL 
DEC 
CALL 
PUSH 


Restliche Formatierung 


Ca LLASH 
BC, B6B3H 


1289H 
DE 

ÀD 

5 

P, 1259H 
132FH 
AE 

À 
Z,BI2FH 
A 

P, 1269H 
HL 


jExponenten-Ausgabe ? (Bit B) 

jja! 

‚Parameter fur ’.' und °,’ 

;’.’ nach 5.Stelle, ',’ nach 2. St. 
ikeine ',’-Ausgabe ? 
iLängen-Parameter in DE laden 
;Vorkommastellen - 5 >= 8? 


jentspr. Anzahl Nullen ausgeben 
Zahl in String umwandeln 
ikeine Nachkommastellen? 


idas ’.' in Puffer löschen 
Nachkommastellen - 1 >08? 
‚entspr. Anzahl Nullen ausgeben 
;Pufferzeiger auf Stack 


Richtige Feldlänge herstellen 


CALL 


POP 
JR 
LD 


BFFSH 


HL 
Z, 18C8H 
(HL), B 


Restliche Formatvorschriften erl. 
Vorzeichen hinter Zahl ? 
;Pufferzeiger laden 

jnein! 

Vorzeichen hinter Zahl setzen 


1867 
18C8 
1BCA 
18CD 
10CE 
1801 
1802 
1803 
18D4 
18D5 
1807 
1809 
1008 
1800 
18DE 
18DF 
18E0 
1863 
10E4 
1BE5 
1867 
1868 
1BEA 
1BEB 
10ED 
1BEE 
1BEF 
10F1 
10F3 
18F4 
10F5 
18F7 
10F8 
18F9 
1BFA 
10FF38 
1BFt 
ıiBFE 
1BFF 


1182 
1183 
1185 


23 
36 88 


a 79 


23 


JA F3 78 


95 
9ż 
c8 
7E 
FE 20 
28 Få 
FE 2A 
28 Fü 
2B 
E3 
F5 
Bi DF 
c5 
D7 
FE 2D 


FE 2B 


FE 24 


ci 
FE 38 
20 OF 
23 
D7 
Ja OB 


Bi 


7 
Fi 
28 FB 
ci 
C3 CE 


Fi 
28 FD 
Ei 


Int HL 

LD (HL), 8 
LD HL, 792FH 
INC HL 

LD Ás (7BF3H) 
SUB L 

SUB D 

RET Z 

iD As (HL) 
EP Z0H 

JR 2, 18CDH 
GP ZAH 

JR 2, 18CDH 
DEC HL 

PUSH HL 

PUSH AF 

LD BC, 10DFH 
PUSH BC 

RST 10H 

cP 2DH 

RET Z 

CP 2BH 

RET Z 

CP Z4H 

RET Z 

POP BC 

CP 30H 

JR NZ, 1102H 
INC HL 

RST 18H 

JR NC, 1182H 
DEC HL 

DEFE Qi 

DEC HL 

LD (HL) A 
POP AF 

JR Z,1BF9H 
POP BC 

JP 10CEH 
Felduberlauf 
POP AF 

JR 2,11024 
POP HL 


;Pufferzeiger + I 
‚Zeilenende mit X OG? markieren 
Adresse vor Puffer laden 
{Puf feradresse + i 

LSB °.’ -Position 

j- LSB Pufferadresse 

;- Vorkommastellen = 8 7 
Ja, fertig 

‚Zeichen laden 

019 

ija, weiter 

joe? 

tda, weiter 

iPufferzeiger -i 

sund auf Stack 

‚Zeichen + Flag auf Stack 
;Rucksprungadresse setzen 


nachstes Zeichen 
9 

Ja, weiter 

= '’+’ 7 

Ja, weiter 

=’ ? 

Ja, weiter 

Rucksprungadresse wieder entfernen 

= ° p 7 

nein, Felduber lauf 

Pufferzeiger + 1 {hinter ’.’) 

‚nachstes Zeichen. =Ziffer ? 

‚nein, Felduberiauf 

ıPufferzeiger auf ’.' 

ILD BC,772B Dummy-Befehl 

‚Pufferzeiger - i 

sleichen in Puffer 

‚Zeichen vom Stack holen 

‚letztes Zeichen? nein-zu 10F9H 

‚Pufferzeiger vom Stack holen 

weiter bei 1BCEH 


a 
? 
Zu 
17 
a 
I 
a 
1 
8 
I 
® 
I 
® 
? 
Li 
1 
= 
? 
: 
I 
s 
I 
2 


Zeichen vom Stack holen 
letztes Zeichen? 
iPufferzeiger laden 


1186 
1108 


1189 
110A 
1108 
110E 
1118 
1113 
1116 
1118 


1118 
iiie 
141D 
1128 
1121 
1123 


1124 
41127 
112A 
1120 
1138 
1132 
1135 
1138 
1139 
113A 


113D 
113E 
1113F 
1148 
1141 
1142 
1145 
1148 
1148 


£3 

If 

DA AA 11 
28 14 

11 84 13 
CD 49 BA 
16 18 
FA 32 1! 


CD BD OF 


F4 69 12 
cD 7D 12 
CD A4 12 


LD 
RET 


(HL},25 


Pe fur Feidüberiauf vor Zahl 


Fornatierten String von Zahlen einfacher oder 
doppelter Genauigkeit erzeugen 


PUSH HL 

RRA 

JP C, 11AAH 
JR Z,1124H 
LD DE, 1384H 
CALL BALH 

LD D, 16 

JP M, 1132H 
Feldüber lauf 
POP HL 

POP BC 

CALL  ØFBDH 
DEC HL 

LD (HL); 25H 
RET 


iPufferzeiger auf Stack 
;Exponentenausgabe ? 

sja! 

ıbei einfacher Genauigk. => Sprung 
‚Konstante IDiö adressieren 

Zahl >= 1016? 

‚Genauigkeit {16 Stellen) in D 
Zahl < 1D16! 


;Pufferzeiger laden 
iLängen-Parameter laden 
sunformatierten String erzeugen 
‚Pufferzeiger - 1 

PA fur Feldüberlauf vor String 


Zahl einfacher Genauigkeit 


LD BC, OBSOEH 
LD DE, 1BCAH 
CALL  BABCH 

JP P ii iBH 
LD D: 

CALL 8955H 
CALL  NZ,12B1H 
POP HL 

POP BC 

JP M, 1157H 
keine Nachkommastellen 
PUSH BC 

LD EA 

LD AB 

SUB D 

SUB E 

CALL  P,1269H 
CALL  127DH 
CALL  12A4H 

OR E 


- Bi - 


4Y = 1E6 setzen 


Zahl >= 1E6 ? 

sja, Feldúber lauf 

j&enauigkeit {6 Stellen) in D 
sahi = 0? 

‚nein, Exp. - Genauigk. + 1 in A 
;Pufferzeiger laden 
;Längen-Parameter laden 
Nachkommastellen ? ja - Sprung 


ıLängenparameter auf Stack 

Exp. - Genauigkeit + L inE 
orkommafeldlänge in A 

i- Exponent 

-15=9? 

Ja, entspr.Anzahl Nullen in Puffer 
Parameter f. ’.’ u. ’,’ ermitteln 
String erzeugen 
E 


$ 
i 
; 
i 
; 
ıExponent-Genauigkeit+ti > 8 ? 


146 


114F 
1158 
1153 
1154 


1157 
1158 
1159 
115A 
115D 
115E 
1161 
1162 
1163 
1164 
1167 
116A 
1168 
116C 
114D 
116E 
116F 
1178 
1171 
1174 
1175 
1176 
1179 
117A 
117D 


117F 
1182 
1183 
1186 
1187 
1188 
1189 
118A 
118D 


C4 7712 


B3 
C4 91 12 
Di 
C3 Bó 18 


5F 

79 

B7 

C4 16 OF 
83 

FA éz 1i 
AF 

C3 

F5 

FC 18 OF 
FA 64 ii 
Ci 

TR 

8 

ci 

5F 

82 

78 

FA 7F ii 
9z 

93 

Fá 69 12 
65 

cD 7D 12 
18 il 


CD 69 12 
79 
CD 94 12 
4F 
AF 
92 
93 
CD 69 12 
c5 


CALL 


OR 
CALL 
POP 
JP 


NZ, 1277H 


E 

NZ, 1291H 
DE 

18B6H 


ıJa, entspr.Anzahl Nullen in Puffer 
mit ’.’ und ’y’ 
;Exponent-Genauigkeit+i > B ? 

1das '.' und ’s’ in Puffer 
iLängen-Parameter laden 

‚restl. Formatierung ausführen 


Nachkommastellen vorhanden 


LD 
LD 
OR 
CALL 
ADD 
JP 
XOR 
PUSH 
PUSH 
CALL 
JP 
Püp 
LD 
SUB 
POP 
LD 
ADD 
LD 
JP 
SUR 
SUB 
CALL 
PUSH 
CALL 
JR 


EÀ 

Ayc 

À 

NZ OF 16H 
AÈ 

M, 1162H 
Å 

BC 

AF 
M, OF 16H 
M, 1164H 
BC 

= 

R 

BC 
EA 

A,D 
Ay 

M, 117F 
D 
E 

P, 1269H 
BC 
127DH 
1190H 


nur Nachkommastellen 


CALL 
LD 
CALL 
LD 
XOR 
SUB 
SUB 
CALL 
PUSH 


1269H 
ÀC 
1294H 
CÀ 

À 

D 

E 
12694 
BC 


Exponent - Genauigkeit + I nach E 
}Nachkommafeldlänge in A 

8? 

idas = I für ’.’ 

‚mehr als vorhanden ? 

iJa: 

‚nein, Anzahl uberfl.Stellen = 8 
ıLängen-Parameter auf Stack 
Anzahl überfl.Stellen auf Stack 
‚überflüssige Stellen entfernen 
fertig? nein-zurüuck 

‚Anzahl überfl.Stellen vom Stack 
Anzahl der tats, auszugebenden 
;Nachkommastellen in A 
Längen-Parameter wieder laden 
(Nachkommastellen in E 

it Genauigkeit > 8 ? 
vorkommafeldlänge in A 

‚Ja! 

Vorkommafeldlänge - Genauigkeit 
jt auszug. Nachkmmastellen } 8 ? 
‚entspr. Anzahl Nullen in Puffer 
Längen-Parameter auf Stack 
‚Parameter f. ’.’ u. ’,’ ermitteln 
weiter bei 1190H 


‚f.Vorkommastellen Nullen in Puffer 
Nachkommafeldlänge in A 

pa? in Puffer 

\Nachkommateldlänge in C 

stats. auszugebende Nachkommastellen 
ı- Genauigkeit 

‚= Anzahl der einzufugenden Nullen 
Nullen in Puffer eintragen 
‚Längen-Parameter auf Stack sichern 











118E 
1186F 
1198 
1193 
1194 
1195 
1197 
119A 


1198 
119C 
119F 
11AB 


11A3 
11A4 
1145 
1148 
1149 


11AA 
11AD 
HAF 
1180 
1182 
11B5 
1186 
1189 
11BA 
11BB 
118C 
1180 
11BE 
11BF 
1162 
1163 
1164 
1165 
1167 
1169 
11CA 


47 

åF 

CD A4 1ž 
Ci 

BI 

20 03 

2A F3 78 
83 


3D 
FÀ 69 12 
50 
C3 BF 10 


E5 
D5 
CD CC BA 
Di 


CA BB il 
IE 18 

di 

IE 86 

cD 55 89 
37 

Ca Qt 12 
Ei 

Ci 

F5 

79 

87 

F5. 

Ch 16 OF 
88 

4F 

TA 

Eb B4 

FE 81 


37 


LD 
LD 
CALL 
FoP 
OR 
JR 
iD 
ADD 


DEC 
CALL 
LD 
JP 


kà 

CÀ 

ZAHH 
BC 

C 

NZ, 119AH 


HL, (78F3H) 


AE 


A 

P, 1259H 
D, B 
105FH 


‚Param. für ’.’ u. ’s° löschen 


‚String in Puffer 
;Langen-Parameter vom Stack iaden 
‚Nachkommafeldlänge > @ ? 

‚ya! 

a? - Adresse laden 
‚Nachkommafeldlänge - Anzahl tats. 
sausgegeberer Nachkommastellen 

s- Í fur °? 

1 0 ? Entspr.Anzahl Nullen ausgeb. 
‚vorkommafeldlänge in D 

‚weiter bei IABFH 


Formatierte Exponentenausgabe 
Ansprung fur Integer 


PUSH 
PUSH 
CALL 
POP 
XOR 


HL 

DE 
BACCH 
DE 

À 


Pufferzeiger auf Stack 
‚Format-Flag auf Stack 

;Integer in einf.Genauigk. umwandeln 
‚Foraat-Flag wieder laden 

‚Flag f. einf.Genauigkeit setzen 


Ansprung f. einfache und doppelte Genauigkeit 


JP 
LD 
DEFB 
LD 
CALL 
SCF 
CALL 
PoP 
POP 
PUSH 
LD 
OR 
PUSH 
CALL 
ADD 
LD 
LD 
AND 
cP 
SBC 
LD 


Z,11BØH 
E, 1BH 
Bi 

E,é 
B955H 


NZ, 1281H 
HL 

BC 

AF 

Art 

À 

ÀF 

NZ, 0F 16H 
AB 

GA 

A,D 


AA 
DA 


- 83 - 


seinf,Genauigkeit? => Sprung 
‚dopp. Genauigkeit = 16 Stellen 
ILD BC OGIE Dummy-Befehl 
seınf.benauigkeit = & Stellen 
zahl =8 7 

dā, Carry setzen 

nein, Exponent-Genauigkeit+i,C=0 
+Pufferzeiger laden 
ıLängen-Parameter laden 

Exp. -benauigkeit+i u. Flag retten 
Nachkommafeldlänge = 8 ? 


Nachkomsafeldlänge auf Stack 
‚nein, Nachkamafeldlänge - i 
ıVorkomsafeldlänge addieren 
;gesant-Feldlänge in C 
;Format-Flag testen 

Vorzeichen hinter Zahl? (Bit 2) 
ija, @ ins Format-Flag 

‚sonst -1 


11CB 


11CC 
1icD 
110E 
11CF 
1100 
11D3 
11D6 
11D7 
11D8 
11D9 
11DA 
11DD 
11DE 
11DF 
11E8 
11E1 
11E2 
11E3 
11E4 
11E6 
11E9 
HEA 
11ED 
t1EE 
HEF 
11F2 
11F3 
11F5 
11F6 
11F7 
11F8 
11F9 
HFC 
11FD 
HFE 


93 
F5 
65 
FC 18 ØF 
FA DB ii 
cl 
Fi 


F5 
FA DE ii 


c5 
CD 74 i8 
EB 
Di 
C3 BF 18 


ann 


E7 


ADD 


LD 
SUR 
PUSH 
PUSH 


JP 
POP 
POP 
PUSH 
PUSH 
JP 
XOR 
CPL 
INC 
ADD 
INC 


JP 


Arc 


GA 


BC 
M,BFIBH 
M, 11D@H 
BC 
AF 
BC 
AF 
M,11DEH 
À 


A 

AyB 

A 

AyD 
B, A 
C0 
12A4H 
AF 
P,127iH 
BC 

AF 

2, B92FH 
AF 

C 1 1F8H 
Å E 

B 

D 

BC 
1074H 
DE, HL 
DE 
1BBFH 


‚Gesamtlänge -i, wenn Vorzeichen 
‚nicht hinter Zahl 

yin C 

i- Exp. -Genauigk. +i ergibt 
‚Anzahl wegzurundender Stellen 
iLängen-Parameter auf Stack 
‚Stellen wegrunden 

‚Schleife, bis Anzahl = @ 
ıLängen-Parameter laden 

Anzahl weggerundeter Stellen 
;Langen-Parameter wieder auf Stack 
Anzatıl wegger. Stellen auf Stack 
‚Stellen weggerundet? ja zu 11DEH 
;keine Stellen weggerundet 
‚positive Anzahl ermitteln 

iti 

jt Vorkommalänge 

iti 

$- i; wenn Vorzeichen vor Zahl 

‚= Position des ’.’ 

;Parameter f. ’,’ = 8 (kein ’,’) 
‚String in Puffer übertragen 
‚Gesamtlänge - Genauigkeit > 8 7 
Ja, entspr.Anzahl Nullen in Puffer 
;Längen-Parameter wieder laden 
Nachkommalänge = 8? 

yJar ’.' in Puffer löschen 

ılahl = 8? 

jja: 

sauszugebenden Exponenten ernittein 


;Längen-Parameter auf Stack 
‚Exponent in Puffer 
Puffer-Endadresse in HL 
Längen-Parameter in DE 
weiter bei 1BBFH 


Zahl so oft mit ið multiplizieren oder durch 18 
dividieren, bis genau & oder 15 Stellen vorhanden sind. 


PUSH 
XOR 
PUSH 
RST 


DE 
A 
AF 
20H 


DE sichern 

Anzahl Verschiebungen = B 
Anzahl Verschiebungen auf Stack 
;Typ testen 


1205 
1208 
1208 
120D 
1218 
1213 
1216 
1219 
121C 
121D 
121F 
1228 
1222 


1225 
1226 
1229 
122C 
122F 
1232 
1234 
1237 
123A 
123D 
123E 
1241 
1242 
1244 
1245 
1248 
1249 


1246 
124D 
124E 


124F 
1250 
1253 
1256 
1259 
1256 
125E 
1261 


E2 22 12 


3A 24 79- 


FE 91 

D2 22 12 
11 64 13 
21 2779 
CD D3 89 
CD Ai OD 
Fi 

Dé BA 

F5 

18 E6 

CD 4F 12 


E7 

EA 34 12 
Bi 43 91 
11 F9 4F 
CD BC BA 
18 86 

t1 66 13 
CD 49 BA 
F2 4C 12 


CD 4F 12 


Fi 
Di 
c9 


£7 

EA SE 12 
81 74 94 
1i F8 23 
CD BC BA 
18 86 

11 74 13 
CD 49 BA 


CALL 


POP 
POP 
RET 


RST 


LD 
LD 


JR 
LD 
CALL 


Pū, 1222H 
Ås (7924H) 
91H 

NC, 1222H 
DE, 1364H 
HL, 7927H 
BID3H 
BDAIH 

AF 

18 

AF 

1208H 
124FH 


26H 

PE, 1234H 
BC, 7143H 
DE, 4FF9H 
BABCH 
123AH 
DE, 136CH 
BA4IH 

P, i24CH 
AF 

BFBBH 

AF 

1225H 

AF 

BFIBH 

AF 

124FH 


Ar 
DE 


20H 

PE, 125EH 
BC, 9474H 
DE, 23F8H 
BABCH 
1264H 
DE, 1374H 
BAAFH 


- 85 - 


seinfache Genauigkeit! 
Zahl >= 65536 ? 


‚ja! 

‚Konstante IDIB adressieren 

jY adressieren 

‚iDi@ in Y übertragen 

‚Zahl * 1DI8 $ 
‚Anzahl Verschiebungen laden 
‚18 

‚und wieder auf Stack 

weiter 

sZahl >=1E6 (!) oder 1D16 (#4? 
ija; weiter bei 1244H 

;Typ testen 

sdopp. Genauigkeit ? ja, zu 1234H 
Konstante 180000 in Y 


Zahl > 100000 ? 

jweiter bei 1234H 

Konstante 1015 adressieren 
Zahl >= 1D15 ? 

jja! 

Verschiebungen laden 

Zahl / 18, Verschiebungen + i 
‚Verschiebungen auf Stack 
weiter 

Verschiebungen laden 

Zahl * 18, Verschiebungen - i 
Verschiebungen auf Stack 
Zahl >= 1E6 (!) oder 1D16 (#) ? 
Ja, weiter bei 1243H 
;Verschiebungen laden 

¡DE wiederherstellen 


Typ testen 
doppelte Genauigkeit! 
Konstante 1E6 in Y 


‚Zahl >= 1D6 ? 


¿Konstante 1Di6 adressieren 
Zahl >= 1Di6 ? 


1291 
1292 
1294 
1296 
1299 
129A 


El 
F2 44 12 
E9 


B7 
c8 
3D 
36 38 
23 
18 F9 


20 84 

(8 

cD 9i 12 
36 38 

23 

3D 

18 Fé 


28 08 
Jb 2 
22 F3 78 
23 

48 


POP 


JP 


Nullen 
OR 
RET 
DEC 
LD 

INC 
JR 


Nullen in Puffer mit °. 


JR 


Parameter für ’.’ und ’ 


LD 
ADD 
INC 
LD 
INC 
SUR 
JR 
ADD 
LD 
LD 
AND 
RET 
LD 
RET 


HL 
P,1244H 
(HL) 


}Rucksprungadresse laden 
1Ja, nach 1244H 
jnein, normaler Rüucksprung 


in Puffer schreiben 


A 

L 

À 
HL’ g 
HL 
126AH 


NZ,1277H 
l 

1291H 
(KO e? 
HL 

À 

1273H 


AE 

AD 

A 

B,A 

A 

3 

NC, 1282H 
A5 

CÀ 

Ày (78D8H) 
40H 

NZ 

CA 


’.’ und ’,’ setzen 


DEC 
JR 
LD 
LD 
INC 
LD 


B 

NZ, 129CH 
Hy’.’ 
(78F3H) , HL 
HL 

CB 


-8b - 


iAnzahi = 0? 

ija, tertig 
Anzahl - 1 

8’ in Puffer 
‚Pufferadresse + 1 
weiter bei 126AH 


’ und aT 

Anzahl > @ ? ja, Sprung 
‚= 0°, fertig 

2’ und ’,’ setzen 

‚® in Puffer 
‚Pufferadresse + i 
sAnzahl - I 

szuruck 


, ermitteln 

Anzahl Verschiebungen in A 
şt Genauigkeit 

iti 

;= Dezimalpunkt-Stellung 

| 

‚Stellung des ’,’ ermitteln 
1-3 bis A negativ ist 

+5 

yals ',’-Parameter in C 
;Format-Flag laden 

I’, gewunscht ? (Bit 6) 
1Ja, ok 

nein, ’,’-Parameter löschen 


;Dezimalpunktstellung - { 
Dezimalpunkt erreicht ? nein! 
$e? in Puffer 

sAdresse des °.” merken 
;Pufferzeiger + i 

f? = 0 (kein ’,’ mehr setzen) 


1298 
129C 
129D 
129E 
12AB 
12A1 
12A3 


12A4 
1285 
12A6 
1249 


12AB 
12AE 
12B1 
12B4 
1287 
1288 


12BC 
12BD 
1208 
1202 
1205 
1266 
1267 
1268 
1269 


c9 
aD 


36 2C 
23 
BE 83 


D5 
E7 
E2 EA 12 
c5 
E5 
cD FC 09 
żi 7C 13 


CD F7 09- 


CD 77 8C 
AF 
CD 7B 8B 


CD 48 aD 


cD 36 aD 
EB 
El 
78 
23 
Fi 
ci 


RET 
DEC 
RET 
LD 

INC 
LD 

RET 


‚fertig 

i’, "Parameter - 1. Nachste Stelle? 
jneim, zuruck 

i’s’ in Puffer 

;Pufferzeiger + I 

3’, '-Param = 3 f. nächstes ’y’ 


Zahl einfacher und doppelter Genauigkeit 
in ASCII - String umwandeln 


PUSH 
RST 
JP 
PUSH 
PUSH 
CALL 
LD 
CALL 
CALL 
XOR 


POP 
POP 
LD 
LD 
CALL 


PUSH 
PUSH 


LD 
INC 
POP 
PUSH 


. CALL 


JR 
PoP 


EX 
POP 
LD 
INC 
POP 
POP 


DE 

20H 

PO, 12EAH 
BC 

HL 

BIFCH 
HL,137CH 
BIFTH 
8C77H 

À 

BB7BH 

HL 

BC 

DE, 138CH 
A, 18 
1291H 
BC 


mer 


B,2FH 


HL 

HL 
BD4BH 
NC, 12CBH 
HL 
DIAH 
DE, HL 
HL 
(HL), B 
HL 

AF 

BC 
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DE sichern 

;Typ testen 

seinf.Genauigkeit? weiter bei I2EAH 
‚Parameter f. '’.’ und ’,’ auf Stack 
;Pufferzeiger auf Stack 
Zahl in Y 

Konstante 8.5 adressieren 
‚8.5 in X 

Zahl + 8.5 nach X 
iNormalisierungs-Flag (Cy) löschen 
;Nachkommastellen abtrennen 
;Pufferzeiger laden 

‚Parameter für ’.’ und ’,’ laden 
jFestkommakonstanten 1D15-1D16 adr. 
sZiffernzähler = 18 

pa?’ und °y? setzen 

¡Parameter fur ’.’ und ’,’ sichern 
sZiffernzähler sichern 
iPufferzeiger sichern 
ıKonstanten-Adresse sichern 
Ziffernwert = ’®’ -i 

sZiffernwert + 1 
ıKonstanten-Adresse in HL 

jund wieder auf den Stack 

Zahl - Konstante. Unterlauf ? 
jnein, weiter 

ıKonstanten-Adresse in HL 

Zahl + Konstante 
iKkonstantenadresse in DE {n.Konst.) 
;Pufferzeiger laden 

Ziffer in Puffer eintragen 
;Pufferzeiger + 1 

sZiffernzähler laden 

‚Parameter f. ’.’ und ’,’ laden 


3D 

20 Eż 

c3 

E5 

21 1D 79 
CD Bi 89 
18 X 


c3 
E3 
cD 88 07 


cD FR BA 
cD B4 09 


11 D2 13 


cD 91 12 


JO FB 
CD B7 87 
23 


DEC 


PUSH 
PUSH 
LD 
CALL 
JR 


PUSH 
PUSH 
CALL 
INC 

CALL 
CALL 


POP 
XOR 
LD 
CCF 
CALL 
PUSH 
PUSH 
PUSH 


CALL 
POP 


INC 


À 

NZ, 12C2H 
BC 

HL 

HL, 791DH 
BIBIH 
12F6H 


BC 

HL 

8788H 

A 

BAFBH 
09B4H 

HL 

BC 

A 

DE, 13D2H 


1291H 
BC 

AF 

HL 

DE 
BIBFH 
HL 
B,2FH 
R 

AsE 
(HL) 
EyA 
HL 
ÀD 

As (HL) 
D,A 
H 
A,c 

A, (HL) 
CA 
HL 

HL 
NC, 138AH 
B7B7H 


‚Ziffernzähler -1. ið Ziffern erz.? 
‚nein, weiter 

‚Parameter f. ’.’ und ’,’ sichern 
ıPufferzeiger sichern 

;Rest (< 106) mit einf.Gen. in X 


‚weiter ait einfacher Genauigkeit 


‚Parameter f. ’.’ und ’,’ auf Stack 
‚Pufferzeiger auf Stack 

Zahl + 8.5 für RAndung 

Flag f.Normalisierung löschen 
‚Integer der Zahl in Y 

Zahl in X eintragen 

ıPufferzeiger laden 

‚Parameter f. ’.’ und ’,’ laden 
iWiederholungs-flag löschen 
Konstanten 1E5 und IE4 adressieren 
‚Wiederholungs-Flag invertieren 
3’.’ und ’,’ setzen 

{Parameter f. °.’ und ’,’ auf Stack 
;Wiederholungs-Flag auf Stack 
Pufferzeiger auf Stack 
;Konstanten-Zeiger auf Stack 

Zahl in Y übertragen 
;Konstanten-Zeiger in HL 
ıZifferncode = ’®’ - 1 

sZifferncode + 1 

Zahl - Konstante. Unterlauf ? 

ıL5B 


snachste Ziffer 


}Konstantenzeiger - 2 

jaut I. Byte der Konstante 
‚kein Unterlauf, zurück 

Zahl + Konstante 

‚nächste Konstante adressieren 


131E 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1329 
132A 
1328 
1320 


CD B4 89 
EB 

El 

78 

23 

Fi 

Ci 

38 D3 
13 

13 

JE 84 
18 86 


D5 

11 D8 13 
JE 85 

cD 91 12 
c5 

F5 

E3 


EB 
4E 
23 
46 
6 


23 
E3 


EB 

2A 21 79 
8% 2 
B4 

7D 


CALL  BOB4H 
EX DE, HL 
POP HL 

LD (HL), B 
INC HL 

POP AF 

POP BC 

JR C, 12FCH 
INC DE 

INC DE 

LD Ásģ 

JR 1335H 


Ansprung bei Integer 
PUSH DE 


LD DE, 13D8H 
LD À5 
CALL 1291H 
PUSH BC 
PUSH AF 
PUSH HL 
EX DE, HL 
LD Cs (HL) 
INC HL 
LD B, (HL) 
PUSH BC 
INC HL 
EX (SP) HL 
EX DE, HL 
LD His (7921H) 
LD B,2FH 
INC B 

Ar 
SUB E 
LD L;A 
LD ÀH 
SBC ÀD 
LD H:A 
JR NC, 1348H 
ADD Hi, DE 
LD (7921H), HL 
POP DE 
POP HL 


Zahl nach X ubertragen 
‚Konstanten-Adresse in DE 
‚Pufferzeiger laden 

Ziffer in Puffer übertragen 
;Pufferzeiger + I 
‚Wiederholungs-Flag laden 
‚Parameter f. ’.’ und ’,’ laden 
+2 Durchläufe? nein-zurück 
jnächste Konstante übergehen 


‚noch 4 Ziffern in Integer-Mode 
;bearbeiten 


;Format-Flag auf Stack 

Konstanten 10888 bis I adressieren 
sZiffernzähler = 5 

p. und ’,’ ausgeben 

‚Parameter f. ’.’ und ’,’ auf Stack 
sZiffernzähler auf Stack 
;Pufferzeiger auf Stack 
;Konstanten-Adresse in HL 
;Konstante laden 


sund auf Stack retten 

nächste Konstante adressieren 
;Konstantenadresse nit Konstante 
sauf Stack tauschen 
;Konstantenadresse in DE 

‚Zahl in HL laden 

sZifferncode = ’W’ - 1 
ıZifferncode + i 

Zahl - Konstante (LSB) 


i (MSB) 


;Unterlauf? nein-zurück 
Zahl + Konstante 

Zahl in X speichern 
ıKonstanten-Adresse laden 
ıPufferzeiger laden 


1357 78 LD {HL}; B Ziffer in Puffer übertragen 


1358 23 INC HL Pufferzeiger + 1 

1359 Fi PūP AF Zifferzähler laden 

135A ci POP BE jParameter f. °.? und °,’ laden 
1358 3p DEC À ‚Ziffernzähler - I 

13550 28 07 JR NZ,1335H ‚alle Ziffern? nein-zurück 

135E CD 9i 12 CALL 1291 H $. und ’,’ ausgeben 

131 77 LD (HL); A ‚Zeilenende mit X’ 00° kennzeichnen 
1362 Di POP DE iDE wiederherstellen 

1363 (9 RET 


RR 


Konstanten 


1364 0 00 O0 Ba FI 82 15 A2 
136C FD FF IF 31 A9 5F 63 B2 
1374 FE FF 03 BF C? iB 0E Bó 
137C 08 20 DR BB OR 26 20 80 


iB x ið E9 (dopp. Genauigkeit) 

i x 18 E15 (dopp, Genauigkeit) 

i x 10 Elė (dopp. Genauigkeit) 
0.5 {doppelte Genauigkeit) 
1388-1383 = 0.5 (einf. Genauigkeit) 
1 x 18 Ei& (dopp. Genauigkeit) 


<a an de au Aa an 


1384 0G OB 04 BF C? 1B OE Bó 


138C BØ 8B Có A4 7E 8D 83 
1393 BB 4B 7A 18 F3 5A 88 
139A BO AD 72 4E 18 09 08 
131 08 18 A5 D4 EB 08 88 
118 88 ES 76 4B 17 80 08 
13AF BO E4 BR 54 02 00 08 
13B6 BB CA 9A 3B BO DO g 
13BD 80 Ei F5 05 08 g0 28 
1364 88 96 98 20 BO BO 20 


e aa AN å an Pa au EEE 
nn NNNHNNN 
en 


13CB 40 42 OF OO BO PO OD 1000200 
1302 AB 80i j= 100200 
1305 18 27 08 j= 18208 
1308 18 27 j= 10080 
13DA EB 83 je 1008 
1IDC 64 00 = 108 
13DE BA 0B je 18 
13E0 81 @ j= l 


FREE IE AEAEE IE AEAEE E FE iE FEE HEEE EEE E EEEE EE EHE E 


13E2 
1365 
1366 


13E7 
13EA 
13ED 
13F0 


21 82 89 
E3 
E9 


CD A4 09 
21 88 13 
CD Bi 89 
18 83 


79 

F6 7F 

CD BF 09 
F2 21 14 
D5 

c5 

CD 40 OB 
61 


Unterprogramm fur SAR und ATN 
bewirkt Multiplikation mit -1 


LD HL, 0987H X = -X - Adresse in HL 
EX iSP} HL mit Rücksprung-Adresse tauschen 
JF {HL} jzur aufrufenden Routine zurück 


ETTTTOTTÄEHERIRRITHIRERNIERR 


SUR - Funktion 

Bildet die Wurzel einer Zahl 
Eing.: X = Argument 

Ausg.: X = Funktionswert 


CALL  BIA4H Argument auf den Stack packen 
LD HL, 13804 ‚Konstante 8.5 adressieren 
CALL  BIBIH sund in X übertragen 

JR 13F5H jweiter bei I3F5H 


IRRE 


Potenz einer Zahl ermitteln 
Eing.: Basis auf dem Stack 


X = Exponent 
Ausg.: X = Ergebnis 
CALL  BABIH iExponent in einf.6Genauigkeit umw. 
POP BC Basis in Y übertragen 
POP DE 
CALL 0955H ;Exponent testen 
LD A;B Exponent der Basis in A 
JR 1, 1439H Exponent = 8? ja=Ergebnis (1) 
JP P, 1484H sExponent > 87 ja-Sprung 
OR A ;Basis=B und Exponent«9? 
JP 2, 199AH Ja, DIVISION BY ZERO - Error 
OR À ‚Basis=® und Exponent}B? 
JP 2,07794 Ja, 8 als Ergebnis in X 
PUSH DE Basis auf Stack 
PUSH BC 
LD Art Basis > ? 
OR TFH 
CALL  BIBFH ;Exponent in Y übertragen 
JP P, 1421H Basis > 8 
PUSH DE jExponent auf Stack 
PUSH BC 
CALL BBABH i integer (Exponent) in X 
POP BC Exponent wieder laden 
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1419 
141A 
1418 
141E 
141F 
1428 
1421 
1422 
1425 
1426 
1429 
142€ 
142F 
1438 
1431 
1434 
1435 
1436 


Di 
F5 
cD BC BA 
Ei 
% 
iF 
El 
22 23 79 
El 
22 21 79 
DC E2 13 
CC 82 09 
D5 
c5 
CD 09 88 
Ci 
Di 
CD 47 88 


POP 
PUSH 
CALL 
POP 
LD 
RRA 
POP 
LD 
POP 
LD 
CALL 


PUSH 
PUSH 
CALL 
POP 
POP 


DE 

Ar 
BABCH 
HL 
ÅH 


HL 
(7923H) HL 
HL 
{7921H), HL 
C, 13EŻH 
Z,B982H 

DE 

BC 

0807H 

BC 

DE 

8847H 


LSB INTiExponent) auf Stack 
sINT{Exponent) = Exponent? 
ıL5B INT(Exponent) in HL 
sINTiExponent) ungerade? 


‚Basis nach X übertragen 
;MSB 


ıL5B 

Ergebnis # (-1) 
Basis = -Basis 
;Exponent auf Stack 


;LOG(Basis) nach X 
jExponent in Y laden 


iLüS(Basis) # Exponent 


cD A4 89 
ði 38 8i 
11 3B AA 
CD 47 08 
3A 24 79 
FE 88 

D2 31 09 
CD 40 0B 
Co 38 

Ch 82 
DA 31 09 
F5 

21 F8 07 
CD 8B 07 


48 2E 94 74 
78 4F 2€ 77 
éE 02 88 7A 
E6 AB 2A 7C 
50 AA AA TE 
FF FF 7F 7F 
09 a A 8I 


FRIE HE E RE HE FEE iE 1E HE E dE FEFE FE HE dE HE HE E FE de E E AE FE E E E de E 


EXP - Funktion 
Exponential-Funktion einer Zahl bestimmen 
Eing.: X = Argument 
Ausg.: X = Funktionswert 


CALL 
LD 
LD 
CALL 
LD 
cP 
JP 
CALL 
ADD 
ADD 
JP 
PUSH 
LD 
CALL 
CALL 
POP 
POP 
POP 


JP 


BIA4H 


BC, 8138H 
DE, BAASBH 


0847H 


Ay 179244) 


88H 


NC, 0931H 


BB40H 
A, BOH 
Ay2 

C 0931H 
AF 


HL, B7F8H 


@7BBH 
BBAIH 
AF 
BC 
DE 
AF 
8713H 
0782H 


HL, 1479H 


14A9H 
DE, B 
BC 
CD 
B847H 


‚Argument auf Stack 
Konstante 1.4427 in Y 


iArgument / LOßI2) in X 
izer Exponent des Erg. > 136 ? 


jja! weiter bei 0931H 
sINT(Exponent) in A und X 
‚Offset addieren 

jExponent > 126 ? 

şja! weiter bei 0931H 
iExponent (m. Offset) auf Stack 
sINT(Arg./LO6l2)) - 1 nach X 


5x LOG (2) 
jExponent d. Erg. zurück 
jArgument wieder laden 


Exponent wieder auf Stack 
3X = (LOG(Z)#INT(Arg/LN2)-1)-Arg 


Reihe berechnen 


‚8.5 * 2 #* Exponent in Y 


jait Reihenergebnis multipliz. 


Konstanten fur Exponenten - Reihe 
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Konstanten 
-1.4131& E-84 
1.327988 E-83 
-8.38136 E-83 
8.0416574 
-0. 166665 
8.5 


an aa au An et Oa aa An 


nen HH N DM 00 


t 
pae 


14% 08 DB BB Bi 


149A 
149 
14AB 
14A1 
1442 
14A5 
14A8 


1449 
14AC 
14AD 
I4AE 
1481 
14B2 
1483 
14B4 
14385 
14B6 
14B7 
14B8 
1489 
14BA 
14BB 
14BE 
14BF 
1462 
1463 
14C6 


CD A4 09 
132% 
D5 
E5 


cD BF 89 


CD 47 88 
Ei 


CD As 09 
TE 
23 
cD Bi 89 


Fi 
ci 
Di 
3D 


D5 
c5 
F5 
£5 
CD 47 88 
Ei 
CD C2 09 
E5 
CD 16 87 
El 


ji 
RR E IE AEE E EAE EE 


Reihen-Berechnung 1 
Ki # Z + KŻ # Z443 + K3 £ 7##5 
Eing.: X = Zahl (Z) 
HL = Adresse der Konstanten iK) 
{zeigt auf Anzahl-Byte) 
Ausg.: X = Reihenergebnis 


CALL  BIA4H ;X auf Stack übertragen 

LD DE,BC3ZH ;Rucksprungadresse auf Stack 
PUSH DE stbewirkt Multipl. mit Z am Ende) 
PUSH HL ıKonstanten-Adresse auf Stack 
CALL  O9BFH i2 nach Y übertragen 

CALL  0B47H 3242 nach X 

POP HL jkonstanten-Adresse in HL 


RT RE 


Reihen-Berechnung 2 

Ki + K2 * Z + K3 # Z##2 + Ka * Zu 
Eing.:! wie Reihen-Berechnung 1 
Ausg. wie Reihen-Berechnung I 


CALL  BOALH 32 auf Stack 

LD Ay (HL) ‚Anzahl der Konstanten in A 

INC HL Adresse der 1. Konstanten 

CALL  B9BIH 1. Konstante in X 

DEFE Bb ILD 3,ØFi Dummy-Befehl 

POP AF sKonstantenzähler laden 

POP RE ‚2 oder Z##2 (Reihe 2 0. 1) in Y 
POP DE 

DEC Ä iKonstantenzähler -1 

RET Z fertig! 

PUSH DE $Y wieder auf Stack 

PUSH BC 

PUSH AF iKonstantenzähler auf Stack 

PUSH HL ‚Konstanten-Adresse auf Stack 
CALL 8847H sX Z (0, Zee) 

POP HL ‚Konstanten-Adresse laden 

CALL  BICZH ;nächste Konstante in Y 

PUSH HL ‚Konstanten-Adresse auf Stack 
CALL 0716H Konstante auf X addieren 

POP HL ıKonstanten-Adresse wieder laden 


- U - 


Burn hg tn nm 2 un Alan Br ee ie aha a nen heat aa 


1467 


1469 
14CC 
14CD 
14CE 
t4Di 
1402 
14D5 
14D6 
1409 
14DC 
14DD 
14DE 
14DF 
14E2 
14E3 
14E4 
14E7 
14EA 
14ED 


t4F8 
14F3 
14F4 
14F7 
14F8 
14FA 
14Ft 
14FD 
14FE 
14FF 
1508 
1581 
1582 
1583 
1584 


18 E9 


cD 7F BA 


cD FO 14 
CD BF 09 
EB 
E3 
(5 
CD CF BA 


JR 


14B2H 


weiter 


ERREREKREREEEREEEEREE EEEE 


RND - Funktion 


Zufallszahl erzeugen 


Eing.! X = Argument (ß oder Intervaliende) 


Ausg.: X = Zufallszahl 


Argument in Integer umwandeln 
s0? 


ida, FUNCTION CODE - Error 
Argument = 8 ? 

Ja, Zufallszahl zw. @ und i erz. 
Argument auf Stack 

;Reelle Zufallszahl in X 

sin Y übertragen 

‚Argument wieder laden und 
sZufallszahl auf Stack 


Argument mit einf. Gen. in X 
Zufallszahl wieder in Y 


tZufallszahl * Argument 
itil 


Erg. = INT(Zuf.zahl # Arg. + 1) 


Neue Zufallszahl = alte Zufallszahl # 4253261 + 372837 


CALL  BATFH 
LD AH 

OR À 

JP M, 1E4AH 
OR L 

JP Z, 14F0H 
PUSH HL 

CALL  14F0H 
CALL  B9BFH 
EX DE, HL 
EX (SP) HL 
PUSH BC 

CALL  BACFH 
POP BC 

PO DE 

CALL  8847H 
LD HL,B7FOH 
CALL  070BH 
JP BB4BH 
LD HL, 789@H 
PUSH HL 

LD DE, 8 
LD GE 

LD Hg 

LD L,8 

EX DE, HL 
ADD  HL;HL 
EX DE, HL 
LD AC 
RLA 

LD GA 

EX (5P), HL 
LD A, (HL) 
RLCA 


Adresse des Multiplikators 
sauf Stack 
jErgebnis-Reg. löschen (CDE) 


‚Bytezähler = 3 
‚Bitzähler = 8 
jErgebnis-Register * 2 
LSB 


ıMSB 
Multiplikator-Adresse in HL 


‚Byte des Miltiplikators in A 
shöchstwertiges Bit in Carry 


1585 
1586 
1507 
150A 
1508 
150E 
150F 
1518 
1513 
1514 
1515 
1516 
1517 
151A 
151B 
151C 
151D 
151E 
1521 
1522 
1525 
1526 
1529 
152C 
152E 
152F 
1532 
1533 
1535 
1538 
1539 


1538 
1531 
153E 


1541 
1544 


C2 FE 14 
E3 

23 

E3 

25 

(2 FA 14 
Ei 
216538 
19 

22 AA 78 
CD EF BA 
JE 85 

89 

32 AC 78 
EB 

86 80 

21 25 79 
78 

2B 

78 

4F 

w 98 

C3 65 97 


21 88 15 
CD 0B 07 


DEC 
LD 
LD 
LD 
JP 


(HL) A 
(SP) HL 
RC, 1516H 
HL 

HL, (75AAH) 
HL,DE 
DE,HL 

A, (78ACH) 
At 

CÀ 

HL 

L 

NZ, 14FCH 
(SP) HL 
HL 

(5P), HL 

H 

NZ, 14FAH 
HL 

HL, BBOG5H 
HL, DE 
{7BAAH) HL 
BAEFH 


Ar3 


Ast 
(7BACH) A 
DE, HL 

B, 8H 
HL, 7925H 
(HL), B 
HL 
(HL), B 
CA 

3,8 
8765H 


‚und wieder zuruckspeichern 
;Multiplikator-Adresse auf Stack 
Bit nicht gesetzt, keine Addition 
Zähler auf Stack 

iLetzte Zufaliszahl addieren 

ıL5B 


ıMSB 


Zähler wieder laden 

sBitzähler - I 

;Byte abgearbeitet? nein-zurück 
Muiltiplikator-Adresse in HL 
ri 

sund wieder auf den Stack 
;Butezähler - 1 

sfertig? nein-zuruck 

Stack korrigieren 
Ergebnis+372837 = neue Zufallszahl 
LSB 


Typ = einfache Genauigkeit 
ıMSB 


‚in Y übertragen 

Exp. Y = 8, damit zw. @ und ! 
}Vorzeichenflag setzen 
Ergebnis = positiv 

jExponent X = Exponent Y 


MSB in € 
ıL5B löschen 
zur Normalisierung 


RRRRRRRRRRARHHRRRRHHHHNH IE 


t05 - Funktion 
Ermitteln des Cosinus eines Winkels 
Eing.: X = Argument ia Bogenmaß 
Ausg.: X = Funktionswert 


LD 
CALL 


HL, 1588H 
878BH 
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Konstante Pl/2 adressieren 
;Pl/2 auf Argument addieren 


1547 
154A 
154D 
1558 
1553 
1554 
1555 
1558 
1558 
155E 
155F 
1568 


1563 
1566 
1569 
156C 
156D 
1570 
1573 
1576 
1577 
1578 
1578 
157E 
1581 
1582 
1585 
1588 


1588 
1590F 


CD A4 09 
Bi 49 83 
11 DB QF 
cD B4 89 


21 8F 15 
CD 18 87 
cD 55 89 


F2 77 15 
CD 08 87 
cD 55 89 
B7 

F5 

F4 82 09 
21 BF 15 
CD @B 87 


D4 82 09 
21 93 15 
C3 9A 14 


DB BF 49 81 
BR 20 0a 7F 


EHEHEHE EEEE EEHEEHE 


SIN - Funktion 


Ermitteln des Sinus eines Winkels 
Eing.: X = Argument in Bogenmaß 
Ausg.: X = Funktionswert 


CALL  B9A4H 

LD BC,8349H 
LD DE,OFDBH 
CALL  09B4H 
POP RC 

POP DE 

CALL  BBAZH 
CALL  BOAGH 
CALL  BB40H 
POP BC 

POP DE 

CALL 8713H 


‚Argument auf Stack 
Konstante ZPI in Y 


s2PI in X übertragen 
jArgument in Y 


3X = Argument / 2PI 
‚Argument /ZPI auf Stack 
sINT (Arg./2PI) in X 
‚Arg./ZPI vom Stack in Y 


‚X = Arg/2PI - INT(Arg/2PI) 


Intervall (8..1) in Intervall (-0.25 ... 0.25) transform. 


LD HL, 158FH 
CALL 8710H 
CALL 0955H 
SCF 

JP P, 15778 
CALL 0708H 
CALL 8955H 

OR À 

PUSH AF 

(ALL  P,0982H 
LD HL, 158FH 
CALL  070BH 
POP AF 

CALL NC, 0782H 
LD HL, 1593H 
J? 149AH 


‘Konstante 0.25 adressieren 

8.25 -X in X 

T 

‚Flag f. Multipl. mit (-1) löschen 
jja! 

8.5 +X ink 

1 >=8? 

Flag f. Multipl. mit (-1) setzen 
‚Flag auf Stack 

jja! X= -X 

Konstante 8.25 adressieren 

8.25 +XinX 

ıFlag laden 

Carry = 8? ja-X=-X 
iKonstanten für Reihenberechnung 
;Reihe berechnen 


EREI HEIE EIE AE FEAE HE AEA AEAEE AEAEE EAE AEE AEE AEAEE AE E EEEE 


Konstanten 
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1.5708 
8.25 


a: an 
u u 


1593 
1594 
1598 
159C 
1548 
1544 


15A8 
15AB 
154E 
i5AF 
1580 
1583 
1584 
1587 
15BA 


15BD 
1568 
1503 
1566 
1569 
15CB 
15CD 
1508 
15D1 
1502 
1505 
1508 
1509 
150: 


85 

BA D7 IE 86 
64 26 99 87 
58 34 23 87 
EB 5D AS 86 
DA BF 49 B3 


cD 55 89 
FÜ EZ 13 
FÜ 82 09 
3A 24 79 
FE 81 

38 8C 

8i 08 81 
3 

59 

CD A2 B8 
21 10 87 
E5 

21 &3 15 
CD 9A 14 


für Sinus - Reihenberechnung 
Anzahl = 5 
39.7187 
-76.575 
81.6822 
-41.3417 
6.28319 


«æ» an 9u n āä an 
i nn nN H 


ERRER AER WEEE EAE EHE EAE EAE AE AE AE AE IE E E AEE EE de EAE EE Ee 


TAN - Funktion 

Errechnet den Tangens eines Winkels 
Eing.: X = Argument im Bogenmag 
Ausg.: X = Funktionswert 


CALL  BIA4H Argument auf Stack 

CALL 1547H {Sin (Arg) ermitteln 

POP BC Argument in Y 

POP HL 

CALL  BIAAH ‚Sin (Arg) auf Stack 

EX DE,HL 

CALL  B9B4H Argument in X ubertragen 

CALL 1541H Cos (Arg) ermitteln 

JP BBABH ;TanfArg.) = SintArg.) / CostArg.) 


FAEH EAE E FEAE EAEE FEE AEE AEA HE FE AE AEE HE d AEAEE IEE AE EE E E 


ATN - Funktion 

Arcus-Tangens Berechnung 
Eing.: X = Argument 

Ausg.: X = Winkel im Bogenmap 


CALL 8955H Argument < 8 ? 

CALL — M,13E2H ija, Ergebnis * (-1) 

CALL  M,0982H ;AbstArgument) in X 

LD Às (7924H) Argument < i ? 

CP SiH 

JR C, 1509H iJa! 

LD BC, BIROH nein! Y= 

LD D;C 

LD EC 

CALL  BBAZH 5X = 1 / Argument 

LD HL, 8710H ;Sprungadr. zu 8718 auf Stack 
PUSH HL 

LD HL, 15E3H Konstanten für Reihe adressieren 
CALL  149AH Reihe berechnen 
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15DF 
15E2 


1563 
15E4 
15E8 
15E 
15F8 
15F4 
15F8 
15F¢ 
1628 
1604 


21 88 15 
c9 


29 

4A D7 3B 78 
B2 oE 84 7B 
FE CI 2F 7C 
74 31 94 7D 
84 3D 5A 7D 
c8 7F 91 7E 
E$ BR 4C 7E 
66 AA AA TF 
Ba 00 OB 8I 


BA 89 
37 ØB 
77 09 
D4 27 
EF 2A 
F5 27 
E7 13 
C? 14 


37 14 
41 15 
47 15 
AB 15 
BD 15 
AA 2C 
52 79 
58 79 
3 79 
61 79 
64 79 
67 79 
6A 79 


LD 
RET 


HL, 158BH 


Adresse von PI/2 laden 
weiter bei A710H 


IRRE 


Konstanten für die Arcus-Tangens Reihe 


‚Anzahl = 9 
2.866253 E-83 
-2.8181657 
2.2429095 
-2.8752896 
8.186563 
-2. 142889 
8. 179936 
-ġ. 333334 
i 


un 


u. -. 


an ws aun en 


RR 


Sprungtabelle für Funktionen 
{Tokens D7 bis FA) 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFK 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


B9BAH 
BB37H 
0977H 
27D4H 
ZAEFH 
27F5H 
13E7H 
14C9H 
8899H 
1439H 
1541H 
1547H 
15ABH 
15BDH 
ZCAAH 
7952H 
7958H 
795EH 
7961H 
7964H 
7967H 
TI6AH 


‚D7 = 5GN 
‚D8 = INT 
iD? = ABS 
DA = FRE 
DB = INP 
‚DE = POS 
sDD = SQR 
¡DE = RND 
sDF = LOG 
EB = EXP 
Ei = COS 
;E2 = SIN 
ıE3 = TAN 
;E4 = ATN 
ES = PEEK 
Es = (VI 
ıE7 = CVS 
EB = CVD 
E9 = EOF 
JEA = LOC 
SEB = LOF 
JEC = MKI$ 


1634 
1636 
1638 
163A 
163 


1640 
1642 
1644 
1646 
1648 
164A 
164C 
164E 


D 79 
70 79 
7F BA 
Bi BA 
DB BA 
26 0B 
83 2A 


c3 2A 
BF 2A 
IF 2A 
61 2A 
91 2A 
9A 2A 


6 

4E 44 

6 

4F 52 

D2 

45 53 45 54 
D3 

45 54 

c3 


45 58 54 

c4 

41 54 41 

c9 

4E 50 55 54 
C4 

49 4D 

D2 

45 41 44 


DEFW 
DEFW 
DEFR 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


796DH 
7970H 
BA7FH 
BABIH 
BADEH 
BB2AH 
2ABSH 
2836H 
ZACSH 
2ABFH 
2AIFH 
2A61H 
2A91H 
ZAQAH 


ED = MK5$ 
;EE = MKD$ 
SEF = CINT 
iF = CSNG 
‚Fi = CDBL 
F2 = FIX 
;F3 = LEN 
iF4 = STR$ 
¡F5 = VAL 
iF6 = ASC 
;F7 = CHR$ 
ıFB = LEFT$ 
iF? = RIGHTS 
IFA = MID$ 


FHEAE IEE E E EAE AEE AE FEAE HE FE FEFE AE FE FE AE AEE E EE EFE E E 


Tabelle der BASIC - Schlüsselworte 
{aufsteigend nach Token sortiert) 


DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


BOH+’E? 
ND’? 
SBHH F? 
? OR’ 
BBHE R? 
ESET? 
BHES? 
? ET’ 
BAHE C? 
15? 
81H 
8,8 
81H 
8:0:0, 8,8 
BAHEN’? 
EXT’ 
BOH+’D’ 
ATA? 
BHH P? 
’NPUT’ 
BOH+’D’ 
? IM 
BAHP R? 
’EAD’ 
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¡80 = END 
i81 = FOR 
82 = RESET 
‚83 = SET 
‚84 = (LS 
‚85 = CMD nicht kodiert) 
+86 = RANDOM (nicht kodiert) 
187 = NEXT 

88 = DATA 

;89 = INPUT 

BA = DIN 


18B = READ 


167E 
1467F 
1681 
1682 
1695 
1686 
1688 
1689 
168A 
1688 


1491 
1692 
1696 
1697 
16% 
169D 
1469F 
16A8 
16A3 
164 
16A7 
16A8 
16AB 
16A 
1688 
1681 
16B6 
1687 
168C 
1680 
1662 
1663 
1668 
1669 
1616 
16CD 
16D8 
16Di 
1605 
14D 
16D8 
160C 
16DE 


cc 

45 54 

67 

AF 54 4F 

D2 

55 4£ 

(9 

46 

D2 

45 53 54 4F 
52 45 

(7 

4AF 53 53 42 
D2 

43 54 55 52 4E 
D2 

45 AD 

D3 

54 4AF 50 

c5 

46 53 45 

63 

ar 58 59 

63 

AF AC 4F 52 
D6 

45 52 49 46 59 


52 55 4E 

cD 

AF 44 45 

D3 

4F 55 4E 44 

gi 

09 2a 20 2e o 
CF 

55 34 

8i 


DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


DEFB 


SBHP L’ 
'EȚ? 
BEHE G 
OTO’? 
BIHE R’ 
HUN’? 
80H T? 
F? 
SHP R 
’ESTORE’ 


SAHE G’ 
"OSUB’ 
SAHE R? 
'ETURN’ 
BAHH R? 
PEM’? 
8HE S’? 
TOP’ 
BAHH’ E’? 
’LSE? 
BHE C? 
OPY? 
BaH+’C’ 
OLOR? 
BRHr’V’ 
’ERIFY? 
81H 
8,8,8,8,8 
81H 
8,8,0,0,8 
81H 
8,8,0,8,8 
SEHE C? 

, RUN? 
BOHEM? 
00E? 
8HE S’ 

? OUND” 
81H 
8,8,8,8,8 
BAH+’O’ 
ur 

SIH 
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86 = LET 
38D = 6ôT0 


‚BE = RUN 


‚78 = RESTORE 


‚71 = GÖSUR 
‚92 = RETURN 
‚73 = REM 
‚74 = STOP 
175 = ELSE 
196 = COPY 
+77 = COLOR 
78 = VERIFY 
199 = DEFINT 
17A = DEFSNG 
59B = DEFDBL 
19C = CRUN 
19D = MODE 
ı7E = SOUND 
ı7F = RESUME 
AB = OUT 


Al = ON 


(nicht kodiert) 


{nicht kodiert) 


{nicht kodiert) 


{nicht kodiert) 


{nicht kodeirt) 


16DF 
16E8 
16E1 
16E4 
16E5 
16£9 
16EA 
14EC 
16ED 
I6EF 
16Fß 
i6F4 
16F5 
16FB 
16F9 
16FD 
16FE 
1701 
1782 
1785 
1706 
1709 
178A 
1780 
170E 
i711 
1712 
1717 
1718 
171D 
171E 
1728 
1721 
1724 
1725 
1729 
172A 
172D 
172 
1731 
1732 
1736 
1737 
1734C 


00 ga 38 

Bi 

20 2A aB 20 o 
cE 

50 52 49 4E 54 
81 

2 ga 

Da 

4F 4B 45 

DO 

52 49 4E 54 

c3 

4F 4E 54 

cc 

49 33 54 

cc 

46 49 53 54 

8 

Op 2B 20 2a go 
81 


DEFE 
DEFB 
DEFB 
DEFB 
DEFE 
DEFB 
DEFB 
DEFB 
DEFB 
DEFE 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFR 
DEFB 
DEFE 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 


DEFB 
DEFM 
DEFB 
DEFM 


DEFB 
DEFB 


a 

81H 
0,8,8 
BiH 
2,8,2,8 
BiH 
2,8 
81H 
d,8 
BiH 
8,8,0,8 
8iH 
8,8,8 
BiH 
0:82,80, 
8iH 
2,8,8 
8iH 
2,8,8 
BIH 
0:0, 
BiH 
2,8,8 
81H 
8,8,8 
BIH 
8B: 8,0,8 
BHEL? 
’PRINT’ 
BiH 
8,8 
BOH+’P’ 
’OKE’ 
BAHH P’? 
’RINT’ 
BIHE C? 
’ONT’ 
BOHP L’ 
IST 
BOH+’L’ 
’LIST’ 
8iH 
B,8,8,2,8 
8ik 
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;A2 = OPEN 
1A3 = FIELD 
Aa = GET 
AS = PUT 
Ab = CLOSE 
‚A7 = LOAD 
AB = MERGE 
ıA9 = NAME 
AA = KILL 
„AB = LSET 
1AC = RSET 
AD = SAVE 
JAE = SYSTEM 
SAF = LPRINT 
‚BB = DEF 
‚Bi = POKE 
BZ = PRINT 
ıB3 = CONT 
B4 = LIST 
»B5 = LLIST 
B6 = DELETE 


‚B7 = AUTO 


(nicht kodiert) 


(nicht kodiert) 


{nicht kodiert) 


{nicht kodiert) 


(nicht kodiert) 


{nicht kodiert) 


{nicht kodiert) 


(nicht kodiert) 


(nicht kodiert) 


{nicht kodiert) 


{nicht kodiert) 


{nicht kodiert) 


{nicht kodiert) 


(nicht kodiert) 


{nicht kodiert) 


(nicht kodiert) 


1730 
1740 
1741 
1745 
1746 
174A 
174R 
174F 
1758 
1752 
1733 
1756 
1757 
1758 
1759 
175A 
{758 
175F 
1768 
1765 
1766 
1768 
1769 
1768 
176C 
176E 
176F 


1775 
1776 
177A 
1778 
177F 
1788 
1784 
1785 
1787 
1788 
1780 
178E 
177 
1792 
1794 
1795 


22 28 20 

c3 

4C 45 41 52 
c3 

ac Ari 44 
c3 

53 41 56 45 
CE 

45 57 

Dá 

41 42 28 

D4 

AF 

Bi 

Be 

D5 

53 49 4E 47 
Bi 

0O 08 O2 BA 2A 


9 

4E dB 45 59 24 
D4 

48 45 4E 

CE 

ur 54 

D3 

54 45 58 


DEFE 
DEFB 
DEFM 
DEF B 
DEFM 
DEFB 
DEFM 
DEFE 
DEFM 
DEFB 
DEFM 
DEFR 
DEFM 
DEFB 
DEFR 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 


DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


8,0,6 
BAH+ C? 
’LEAR’ 
BHE C? 
LOAD? 
8AH+ C? 
"SAVE" 
BBH N? 
IEW 
BAHH T? 
ARC 
BOH+’T’ 
20? 

81H 

8 

BHP U’? 
"SING’ 
BiH 
0,8,0,8, 8 
BEHE U? 
SR’ 
81H 
2,8 
BiH 
8,8 
BiH 
0,8,8,8,0,8 


BiH 
8,8,8,0 
BAHH P? 
DINT? 
BiH 
8,2,8,8 
81H 
2,8 
SBHH T’ 
’NKEYS’ 
BAH+’T’ 
HEN? 
BOH+’N’ 
OT? 
BOH+'S’ 
TEP? 
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‚23 = CLEAR 
;29 = CLOAD 
„BA = (SAVE 
‚BB = NEW 
BC = TAR( 
‚ED = Tò 
SBE = FN 
‚BF = USING 
¡CO = VARPTR 
‚ci = USR 
C2 = ERL 


‚63 = ERR 


‚C4 = STRINGS 


‚65 = INSTR 
‚ch = POINT 
‚67 = TIMES 
‚CH = MEM 
‚69 = INKEY$ 
ICA = THEN 
sch = NOT 


CC = STEP 


{nicht 


{nicht 


{nicht 


{nicht 


{nicht 


(nicht 


inicht 


(nicht 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


1798 
1799 
179A 
1798 
179C 
179D 
179E 
17A0 
17A1 
17A2 
17A3 
17A4 
1785 
17A6 
17A8 
1749 
17AB 
17AC 
17AE 
17AF 
1781 
1782 
1784 
1785 
1787 
1788 
17BA 
17BB 
178D 
17BE 
17c0 
17C1 
1763 
17C4 
1766 
1707 
1769 
17CA 
17CC 
17CD 
17CF 
1708 
1703 
17D4 


4E 44 


4E 54 


42 53 


ar 53 
D3 

49 4E 

D4 

41 4E 

Ci 

54 4E 
18 

45 45 4B 
8i 


DEFR 
DEFB 
DEFB 
DEFB 
DEFB 
DEFR 
DEFM 
DEFR 
DEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


DEFM 
DEFB 
DEFM 


DEFM 
DEFR 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


DEFB 


Bahr’ +’ 
Bahr’ -’ 
BOHr’* 
BOH+’ 7? 
BAH+SEH 
Bahr A? 
ND’ 
BOH+ 0° 
IR 
80H >? 
BBH <? 
Bahr" 5’ 
GN? 
Bahr" I’ 
NT? 
BAHEA’ 
R5’ 
BiH 
2,0 
BHH’ I? 
NP? 
BiH 
8,0 
BAHR" 5° 
QR? 
BHH R’ 
ND’? 
BAHE’ L? 
705? 
BAHH’ E? 
’xp? 
Bahr’ C’ 
105? 
Bahr’ S’ 
’IN’ 
BIHE T’ 
"AN? 
Bahr A’ 
TN? 
BaH+’ P’ 
’EER’ 
81H 
0,0 
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+ 


— ea oe 
m ca 
nn nm N 


SEESMS 


* 
/ 
Pfeil hoch {potenzieren) 
AND 


u .0n -n 
H 


<n 


SERF 


"n 


;D8 = INT 
;D9 = ABS 
DA = FRE (nicht kodiert) 
;DB = INP 
‚De = POS {nicht kodiert) 
DD = SQR 
DE = RND- 
;DF = LOG 
JEB = EXP 
Ei = C0S 
;E2 = SIN 
JEJ = TAN 
sE4 = ATN 
;E5 = PEEK 


ıE& = (VI inıcht kodiert) 


45 46 54 24 
D2 

47 47 48 54 24 
cD 

47 44 24 

A7 

s2 


DEFB 
DEFR 
DEFB 
DEFB 
DEFB 
DEFRB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFR 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFM 


BIH 
8,0 
81H 
8,0 
BIH 
90 
BI 
H 
BIH 
2,8 
BiH 
8,0,0 
BiH 
8,0,8 
BiH 

(A ß, 8 
81H 
00,0 
BiH 
0,0,8 
BIH 
0,0,0 
BiH 
8,0 
BHHL? 
’EN’ 
Bahr" 5’ 
TRS’ 
BaH V’ 
AL? 
Bahr" A’ 
15e? 
BHE C? 
HRS’ 
SHP L? 
'EFTS? 
BBHH R? 
' IGHT? 
BOHEM? 
? ID$’ 
BBH+27H 
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;E7 = (v5 (nıcht 
;EB = CVD {nicht 
;E9 = EOF (nicht 
SEA = LOC (nicht 
JEB = LOF (nicht 
;EC = Mi$ — (nicht 
JED = MS$ nicht 
SEE = MD$ (nicht 
SEF = CINT nicht 
SFO = CNG (nicht 
Fi = CDBL nicht 
iF2 = FIX inicht 
ıF3 = LEN 

;F4 = STR$ 

iF5 = VAL 

Fó = ASC 

F7 = CHR$ 

ıF8 = LEFT$ 

;F9 = RIGHTS 

SFA = MID$ 


FB =? 
Ende der Tabelle 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


kodiert) 


1822 AE iD 
1824 Al IC 
1826 38 9 
1828 35 8 
182A (69 8 
1826 73 79 
182E D3 8 
1830 Bé 22 
1832 85 iF 
1834 9A 21 
1836 88 26 
1838 EF 21 
183A 21 IF 
183C C2 1E 
183E A3 IE 
1848 39 28 
1842 9i iD 
1B44 Bi lE 
1846 DE IE 
1848 07 iF 
184A AF 1D 
184C 07 iF 
184E 1239 
1850 9D 38 
1852 38 

1854 8 

1856 Bá IE 
1858 89 

185A 2 37 
185C 63 2E 
185E F5 2B 
180 AF iF 
1852 FB 2A 
1864 óC iF 
1866 7979 
1868 7C 79 
iBA 7F 79 
186C 8279 
186E 85 79 
1878 88 79 


EHE 


Sprungtabelle für Befehle (Token 80 - BB) 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFR 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFR 
DEFW 
DEFR 


IDAEH 
1CAIH 
B138H 
B135H 
B1C9H 
7973H 
B1D3H 
22B6H 
IF05H 
219AH 
2608H 
21EFH 
1F21H 
1EC2H 
1EASH 
2039H 
1D91H 
1EBIH 
1EDEH 
1F07H 
1DA9H 
1FB7H 
3912H 
389DH 
3738H 
1EB3H 
1EB6H 
1EB9H 
37ZEH 
2E6JH 
ZBFSH 
1FAFH 
2AF BH 
IFöCH 
79794 
797CH 
797FH 
7982H 
7985H 
7988H 


- 186 - 


88 = END 
‚81 = FOR 
82 = RESET 
83 = SET 
184 = CLS 
;85 = CMD 
186 = RANDOM 
187 = NEXT 
‚88 = DATA 
‚89 = INPUT 
ı8A = DIM 
:8B = READ 
86 = LET 
180 = GOTO 
BE = RUN 
sör= If 

‚978 = RESTORE 
‚91 = GOSUB 
‚92 = RETURN 
593 = REM 
;94 = STOP 
95 = ELSE 
96 = COPY 
397 = COLOR 
198 = VERIFY 
199 = DEFINT 
19A = DEFSNG 
39B = DEFDBL 
19C = CRUN 
39D = MODE 
19E = SOUND 
19F = RESUME 
AB = OUT 
sAl = CN 

;A2 = ÖPEN 
;A3 = FIELD 
Ad = GET 
‚5 = PUT 
Ab = CLOSE 
;A7 = LOAD 


1872 
1874 
1876 
1878 
187A 
187€ 
167E 
1888 
1882 
1884 
1886 
1888 
188A 
1B8C 
188E 
1898 
1892 
1894 
1896 
1898 


189A 
189B 
18% 
1890 
189E 
1589F 
18498 


18A1 
1BA3 
1845 
1847 


1849 


BR 79 
BE 79 
979 
97 79 
9A 79 
AB 79 
22 88 
67 28 
58 79 
Bi 2C 
6 28 
E4 iD 
2E 2R 
29 2B 
Co 28 
25 20 
7A 1E 
56 36 
A9 34 
49 1B 


79 
79 
7C 
TC 
7F 
58 
46 


DB BA 
aa ga 
7F BA 
Fa aA 


Bi BA 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


798EH 
798EH 
7991H 
7997H 
7994H 
79ABH 
Q 

2067H 
7938H 
ZCBIH 
2B5FH 
1DE4H 
ZBZEH 
ZBZ9H 
ZBC6H 
2008H 
1E7AH 
3656H 
34A9H 
1B49H 


AB = MERGE 
ıA9 = NAME 
Ah = KILL 
AB = iSET 
At = RSET 
‚AD = SAVE 
JAE = SYSTEM 
3AF = LPRINT 
380 = DEF 
IBI = POKE 
;B2 = PRINT 
183 = CONT 
s84 = LIST 
;B5 = LLIST 
ıB6 = DELETE 
357 = AUTO 
BB = CLEAR 
ıB9 = CLOAD 
„BA = CSAVE 
BB = NEW 


RR ME AE AEE HE E HE E R de E 


Prioritäts-Codes fúr Operatoren 
Der Operator mit dem höheren Code hat Priorität 


DEFR 
DEFR 
DEFB 
DEFB 
DEFB 
DEFR 
DEFB 


79H 
79H 
TCH 
7CH 
7FH 
50H 
46H 


+ 
* 

f 

** (potenzieren) 
AND 

OR 


sn aa an on on n a 


TRITT RE 


Sprungtabelle für Typanpassung 


DEFW 
DEFW 
DEFW 
DEFW 


DEFW 


BADBH 
8 

BATFH 
BAF4H 


BABIH 


Umwandlung in doppelte Genauigkeit 
unbenutzt 
Umwandlung in Integer 

‚Typ auf String testen 

ıTYPE MISMATCH - Error wenn nicht! 
Uewandlung in einfache Genauigkeit 


FEIER IEE IEE JE AE 1E AE FE FE AE RE AEE AE AE AE EE AEE EERE AAE EEEE EE 


1BAB 
18AD 
1BAF 
1881 
1883 


1885 
1887 
1889 
1B8B 
188D 


18BF 
1861 
1803 
1865 
1867 


1869 
18CB 
18CD 
18CF 
1801 
1803 
1805 
18D7 
1809 
18DB 
18DD 
18DF 
18E1 
1863 
1865 
1BE7 


77% 
70 BC 
Al BD 
E5 ØD 
78 BA 


i6 87 
13 07 
4788 
A2 88 
BC BA 


Dz BB 
C7 QB 
F2 0B 
W 24 
39 BA 


4E 46 
53 4E 
52 47 
4F 44 
46 43 
4F 56 
4F AD 
55 4C 
42 53 
44 44 


47 &4 
34 4D 
ar 53 
4C 53 
53 54 


Sprungtabelle für Grundrechenarten und Vergleich 


Doppelte Genauigkeit 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


8C77H 
BC7BH 
BDAIH 
BDESH 
BA7BH 


Einfache Genauigkeit 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


Integer 


DEFW 
DEFR 
DEFW 
DEFW 
DEFW 


0716H 
0713H 
0847H 
BBAZH 
BABCH 


QBDZH 
BBC7H 
BBFZH 
2490H 
BASIH 


Addition 
‚Subtraktion 
Multiplikation 
‚Division 
;Potenzieren 


Addition 
;Subtraktion 
‚Multiplikation 
‚Division 
iPotenzieren 


sAddition 
;Subtraktion 
‚Multiplikation 
‚Division 
iPotenzieren 


RR E iE 


Fehler-Abkür zungen 
aufsteigend nach Fehlercodes sortiert 
(werden im LASER 118-318 nicht verwendet) 


DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 


INF? 
’Sy?’ 
IRG? 
9D? 
F? 
ray? 
0M? 
UL? 
BS’ 
p 
P 
? ip’ 
FM? 
05? 
S? 
IST? 
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NEXT WITHOUT FOR 

SYNTAX ERRÜR 

RETURN WITHOUT GOSUR 
SOUT OF DATA 

ILLEGAL FUNCTION CALL 
sOVERFLOW 

UT OF MEMORY 

sUNDEFINED LINE 
;SUBSCRIPT OUT OF RANGE 
;REDIMENSIONED ARRAY 
DIVISION BY ZERO 
sILLEGAL DIRECT OPERATION 
iTYPE MISMATCH 

FOUT OF STRING SPACE 
STRING TOO LONG 

SSTRING FORMULA TOO COMPLEX 


1869 
18EB 
18ED 
18EF 
18Fl 
18F3 
18F5 


18F7 
18F9 
18FA 
18FB 
i8FD 
18FE 
18FF 
181 
1902 
1984 


1985 


197 


190A 
INC 


178D 
1908F 


1918 
1911 
1912 
1913 
1914 


43 4E 
4E 52 
32 37 
35 45 
4D 4F 
46 44 
46 33 


4A 1E 


40 Eb 4D 


DB 08 


5855858 


DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 


? EN’? 
NR? 
+RW? 
’yE? 
Ho? 
FD 
y 


SCAN?’ T CONTINUE 

ıNÜ RESUME 

;RESUME WITHOUT ERROR 
+UNPRINTABLE ERROR 
;MISSING OPERAND 

BAD FILE DATA 

DISK BASIC COMMAND 


FERRARE E AE E E FE HE IHRE 


Daten und Unterprogramme, die bei der BASIC - 
Initialisierung ins RAM übertragen werden. 


Unterprogramm fur Division 


SUB 2 

LD ET.) 
LD ÀH 
SBC Å® 
LD HA 
LD AB 
SBC A8 
LD B,A 
LD A0 
RET 
System-Daten 
DEFW 1E4AH 


Unterprogramm fur INP 


Unterprograma fur OUT 


IN À, (0) 
RET 

QuT (8), A 
RET 
System-Daten 
DEFER 8 
DEFB B 
DEFB 8 
DEFE 8 
DEFB 64 


- 189 - 


sSubtraktion 72 - Zi 
swird vor jedem Aufruf modifiziert 


sUSR-Startadresse 
ivorbesetzt mit FUNCTION CODE -Err. 
Mitiplikator für RND 


Eingabeport in A laden 


;A-Reg über Port ausgeben 


; INKEY$-Zwischenspeicher 
Letzter Fehlercode für ERR 
;Druckkopf-Position 
sAusgabe-Flag 

sZeilenlänge auf Schirm 


1915 
1916 
1917 
1919 
1918 


191D 


1924 


1929 


1938 


1936 
1939 
1934 
193B 
193C 
193E 
193F 
1948 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1948 
194C 
194D 
1958 
1951 


4C 7B 
FE FF 
E9 7A 


20 45 52 52 
4F 52 00 

20 49 4E 20 
2a 

52 45 4i 44 
59 2D 88 

42 52 45 41 
48 9 


21 04 08 
39 

7E 

23 
FE Bi 
cB 

4E 

23 
46 

23 

E5 

67 
60 

Th 

BJ 

EB 
28 82 
EB 

DF 

Bi BE 08 
Ei 

(8 


DEFB 48 letzte Tabposition auf Schirm 
DEB 8 junbenutzt 

DEFW  T7B4CH Anfang des Stringbereichs 
DEF  ØFFFEH ;Aktuelle Zeilennummer 

DEFW  7AEIH ;Programmtext-Anfang 


RR FEAE IEE AEA EE EEEE 


Texte 
DEFM “ERROR? 


DEFN IN’ 
DEFM  ' READY? 
DEFM ° BREAK? 


JEEE HE AEE BE dE HE FEAE IE FEFE FEAE FE AE FE AEE AEAEE AE FE AE AEE AE AE RER EHE 


Unterprogramm fur FOR/NEXT und GOSUB/RETURN 
holt Daten vom Stack zurück 


LD HL,4 ;Stackpointer + 4 in HL 
ADD HL, 5P ‚(2 Rucksprungadr. übergehen) 
LD Às (HL) Flag laden 
INC HL 
cP BiH ;Daten von FOR-Schleife? 
RET NZ nein, fertig 
LD C (HL) 1Ja, Laufvariablen-Adresse laden 
INC HL 
LD B, (HL) 
INC HL 
PUSH HL ‚Adresszeiger auf Stack 
LD List ıLaufvariablen-Adresse in HL 
LD HB 
LD AD Laufvariable angegeben? 
OR E 
EX DE,HL nein, mit Adresse in DE zurück 
JR 2, 194DH 
. EX DE,HL 
RST 18H jja; = gefundene Laufvariable? 
LD BC,14 s14 in BC 
POP HL jAdresszeiger wieder laden 
RET Z ija; fertig 
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1952 
1933 


195 


1958 
1959 
195A 
1958 
195¢ 
195D 
195E 
195F 
1768 
1961 


1963 
1964 
1967 
1969 
196A 
1968 
196C 
196D 
196F 
1778 
1971 
1973 
1974 
1976 
1977 
1978 
1979 


29 
18 E5 


CD 66 19 


65 
E3 
ci 
DF 
TE 
8z 
c8 
OR 
ZB 
18 FB 


E5 

2A FD 78 
86 80 
89 

89 

JE 

£5 


ADD HL, EC ‚Zeiger auf nächste Stack-Daten 
JR 193AH ‚dasselbe noch einmal 


ERKERERTRRERIEERERIRT RI RER 


Speicherplatz für einzufügende Programmzeile 
oder Variable freimachen 
Eing.! DE = Anfangsadresse des (uellblocks 
BC = Endadresse des Quellblocks 
HL = Zieladresse 


CALL  i9óCH sliegt HL noch im freien Speicher? 
nein, GUT OF MEMORY - Error 

PUSH BC HL und BC tauschen 

EX (5P), HL 

POP BC 

RST 18H Anfang des Quellblocks erreicht? 

LD Às (HL) $i Byte umspeichern 

LD (BC) À 

RET Z iJa, fertig! 

DEC BC sAdresszeiger - í 

DEC HL 

JR 1958H nächstes Byte 


FRERE HEE EAEE AEAEE AEAEE IEE AE E AEAEE AE EEE EEEE E E 


Testen, ob 2#C Bytes frei sind 
wenn nicht, OUT OF MEMORY - Error 


PUSH HL ;HL auf Stack 

LD HL, (7BFDH) ;Anfangsadr. des freien Speichers 
LD 3,8 ;B=8 

ADD HL, BE iC 2 mal aut HL addieren 

ADD HL, BC 

DEFB BESH ILD A QESH Dummy-Befehl 

PUSH HL itesten, ob HL noch im freien Sp. 
LD As BCAH IHL > FFCAH ? 

SUB L 

iD L;A 

LD AsBFFH 

SBC AH 

JR C 197AH ida, OUT OF MEMORY - Error 

LD HA IHL + 4A >= SP? 

ADD HL, 5P . 

POP HL ıHL wiederherstellen 

RET £ nein, zurück 


= H1- 


197A 
197C 


197E 
1981 
1982 
1983 
1984 
1986 
1989 


198C 
198E 


1991 
1994 


1997 
1999 


199A 
199c 


199D 
199F 


19A0 


1942 
1945 


IE &C 
18 24 


2A A2 78 
TC 

A5 

st 

28 08 

JA F2 78 
B7 

IE 22 
20 14 

(3 c1 1D 


2A DA 78 
22 A2 78 


1E 82 
Bi 


IE 14 
Bi 


IE 9 
Bi 


IE 24 


2A A2 78 
22 EA 78 


RR HE IE EFE AEE ERE EEEE 


Aufbereitung und Ausgabe der Fehlermeldungen 


OUT OF MEMORY - Error 
LD E OCH 
JR 19A2H 


Iaplizites Ende 


LD HL, (7842H) 
LD ÁH 

AND L 

IC A 

JR 2, 19BEH 
LD A, (78F2H) 
OR A 

LD E, 22H 

JR NZ, 19A2H 
JP iDICH 


Fehlercode in E 
‚zur Meldungsausgabe 


iZeilennummer laden 
sin Direkt-Mode ? (=FFFF) 


nein, Sprung in END 
}Trap-Flag gesetzt ? 


iNO RESUME - Error-Code laden 
iJa, zur Meldungsausgabe 
Sprung in END 


SYNTAX ERROR in DATA-Zeile 


LD HL, (7BDAH) 
LD (TBAZH) HL 


SYNTAX ERROR 
LD E02 
DEFB @i 


DIVISION BY ZERO 
LD E, 14H 
DEFB 8 


NEXT WITHOUT FOR 
LD E, 
DEFE ði 


RESUME WITHOUT ERROR 
LD E, 24H 


Fehlermeldung ausgeben 
Eing.: Fehlercode in E 
LD HL, (78A2H) 
LD (78EAH) HL 
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sletzte DATA-Zeile 
sals aktuelle Zeilennumwer 


sFehler-Code in E 
ıLD BC,I41EH Dummy-Befehl 


;Fehler-Code in E 
ILD BC,BBIEH Dummy-Befehl 


;Fehler-Code in E 
ıLD BC,241EH Dumay-Befehl 


Fehler-Code in E 


Aktuelle Zeilennummer laden 
sals Fehler-Zeile speichern 


19A8 
19AB 
17AE 
19B1 
19B4 
1985 
1986 
1987 
19BA 
19BD 
19C 
1961 
1904 
1905 
1966 
1967 
1969 
1966 
19CD 
1908 
1903 
19D4 
1905 
1906 
1903 
19DB 


1906 
19DE 
19DF 
19E8 
1983 
19E4 
195 
196 
19E9 
19EC 
19EF 
1978 
1972 
195 
198 


19FE 


22 EC 78 
Bi Ba 19 
2A E8 78 
C3 9A 1B 
Ci 

7B 

48 

32 9A 78 
2A E6 78 
22 EE 78 
ER 

2A EA 78 
Te 

A5 

3c 

28 87 

22 F5 78 
ER 

22 F7 78 
2A Fa 78 
TE 

B5 

EB 

21 F2 78 
28 08 

Ab 


28 05 

35 

EB 

(3 3 1D 
AF 

77 

59 

cD F9 28 
21 EC 3C 


“CD Ab 79 


57 

JE 3F 

CD 24 03 
cD D4 St 
a w a 
82 a0 88 
21 1D 19 


LD 
LD 
LD 
JP 
POP 
LD 
LD 
LD 
LD 


EX 
LD 
LD 
AND 
INC 
JR 
LD 
EX 
LD 
LD 
LD 
OR 
EX 
LD 
JR 
AND 


JR 
DEC 
EX 
JP 
XOR 
LD 
LD 
CALL 
LD 
CALL 


(7BACH) , HL 
BC, 19B4H 
HL, (7BE8H) 
1B9AH 

BE 

AE 

GE 
(7B9AH) A 
HL, 178E6H) 
(78EEH) HL 
DE, HL 

HL, (7BEAH) 
AH 

L 

A 

Z, 1900H 
{(78F5H) ‚HL 
DE, HL 
(78F7H),HL 
HL, (78F0H 
AH 

L 

DE, HL 

HL, 7BF2H 
2, 19E3H 
(HL) 


NZ, 19E3H 
(HL) 

DE, HL 
1D36H 

À 

(HL); A 
Est 

2BF IH 
HL, 3CECH 
7946H 
D,A 

Às SFH 
B32AH 
JCD4H 
8,0,8: 8,8,8 


HL, 1910H 
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sFortsetzungsadresse laden 
sStack-Anfangsadresse laden 
‚Sprung in NEW, Stack initialis. 
‚Stack korrigieren 

Fehlercode in A und C 


‚speichern 

‚Programmzeiger laden 

‚als Fehlerzeiger speichern 
und in DE 

Zeilennummer = FFFF ? 

‚t= Direkt-Mode} 


ıJa, keine Unterbrechungsparam. 
;Fehler-ZNr für CONT speichern 
‚Zeilenadresse in HL 

sals CONT-Zeiger speichern 
‚Adresse einer Fehlerroutine laden 
8? 


sin DE 

;TRAP-Flag Adresse laden 

jkeine Fehlerroutine (TRAP) 

‚noch offener Fehler-TRAP 

stohne RESUME) ? 

Ja, keine Fehlerbehandlung durchf. 
ıTRAP-Flag setzen 

jAdresse der Fehlerroutine in HL 
‚Programm dort fortsetzen 
;TRAP-Flag löschen 


Fehlercode wieder in E 
‚wenn erf., CR ausgeben 
‚Adresse der Fehlermeldungen 
;RAM-Erweiterungsausgang 
D=8 

ı 7° ausgeben 


;Fehlermeldung ausgeben 
36 x NOP 


‚Text "ERROR? adressieren 


1AB! 
1402 
1AB5 
1A86 
1409 
1ABA 
1ABD 
1ABE 
tAlt 
1Al2 
1Al3 
1Al4 
1A17 


1A18 
1419 


1Alc 
Alf 
1A22 
1A25 
1428 
1AZB 
1AZE 
1A38 
1A33 
1A36 
1439 
1A3C 
1430 


1A3F 
1A42 
1A43 


E5 
2A EA 78 
EJ 
CD A7 28 
El 
11 FE FF 
DF 
CA 74 06 
TC 
AS 
3C 
Ch A7 OF 
JE 


Ci 
cD 8B 03 


CD AC 79 
80 0a 28 
cD FI 28 
21 29 19 
{D A7 28 
3A 9A 78 
D6 02 

BB 2a 00 
21 FF FF 
22 A2 78 
JA EI 78 
B7 

28 3A 


2A E2 78 
E5 
CD AF OF 


PUSH 
LD 
EX 
CALL 
POP 
LD 
RST 
JP 
LD 
AND 
INC 
CALL 
DEFB 


HL 

HL, (78EAH) 
(SP) HL 
28A7H 

HL 
DE,BFFFEH 
18H 
2,8674H 
AH 

L 

À 
NZ,BFA7H 
3EH 


sund auf Stack 
iFehier-Zeilennummer laden 

‚mit Textadr. auf Stack tauschen 
TERROR? ausgeben 
;Fehler-Zeilennummer vom Stack 
‚= 65534 9 


1Ja; neue System-Initialisierung 
= 65535 ? {FFFF) 
i(Birekt-Mode) 


‚nein, 'IN Zeile’ ausgeben 
iLD A,BCiH Dummy-Befehl 


REE AEEA FE E E EE AEE FE FEAE HE E HE AE AE MEAE EAE EE EEEE EE 


BASIC - Hauptschleife 


Ansprung entweder bei 1A18 oder 1A19 


POF 
CALL 


CALL 
DEFB 
CALL 
LD 
CALL 
LD 
SUB 
DEFB 
LD 
iD 
LD 
ÖR 
JR 


BE 
Q3BBH 


79ACH 
8,8,0 
20F9H 
HL, 1929H 
28A7H 


As (789AH) 


2 

2,8,8 

HL, BFFFFH 

(78AZH) HL 
Ås (78E1H) 

Å 

Z, 1479H 


Stack korrigieren 

‚Ausgabe-Flag auf Bildschirm, wenn 
‚erforderlich, CR auf Drucker ausg. 
;RAM-Erweiterungsausgang 

33 x NOP 

ICR auf Bildschirm, wenn erf. 

Text 'READY? adressieren 

sund ausgeben 

‚ohne Bedeutung 

$ u Li 

13 x NOP 

;Aktuelle Zeilennmmer = FFFF setzen 


sAUTO-Funktion eingeschaltet? 


‚nein, normale Eingabe 


THREE 


Programmeingabe unter AUTO-Funktion 


LD 
PUSH 
CALL 


HL, (78E2H) 
HL 
BFAFH 
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‚nächste AUTO-Zeilennunmer laden 
‚und auf den Stack 
ıZeilennummer ausgeben 


1A46 
1A48 
1A4B 
1A4C 
tA4D 
1450 
1453 
1454 
1457 
1A58 
1A5A 
1A5B 
1A5E 
1A6B 
1As3 
1A64 
1A66 
1467 
1AbA 
1A6B 
1A6C 
1A6E 
1471 
1A73 
1A76 


1479 
1A7B 
1A7E 
1A81 
1A82 
1483 
1484 
1487 
1488 
1488 
1A8C 
148D 
1A8F 
1491 


JE 28 

CD ZA 03 
DI 

D5 

CD 2C 1B 
DE 53 2E 
a 

CD EJ Q3 
Di 

J0 0 

AF 

Jż El 78 
16 29 

2A E4 78 
19 

38 F4 

D5 

IL FI FF 
DF 

Di 

38 Et 

22 EZ 78 
a0 28 

21 E7 79 
C3 Bi 1A 


20 2a 

CD E3 03 
DA 33 iA 
D7 

3c 

3D 

CA 33 iA 
F5 

cD 5A 1E 
2B 

TE 

FE 28 
28 FA 
23 


iD 
CALL 
Pür 
FUSH 
CALL 
CALL 
NOP 
CALL 
POP 
JR 
XÜR 
LD 
JR 
LD 
ADD 
JR 
PUSH 
LD 
RST 
PoP 
JR 
LD 
DEFB 
LD 
JP 


Ay’? 
BIZAH 
DE 

DE 
1BZCH 
C, 2E33H 


B3ESH 

DE 

NG, 1AGBH 
Ä 
i78E1H),A 
1A19H 
HL, í 7BE4H) 
HL, DE 

6, 1ASAH 
DE 

DE, OFFF? 
16H 

DE 

NC, LASAH 
(78E2H) , HL 
0:8 

HL, 77E7H 
1A8IH 


‚danach eın Leerzeichen 


‚Zeılennumser ın DE 

‚und wieder auf Stack 

‚leile im Programmtext suchen 
‚vorhanden! Zeile ausgeben 


‚Zeile von der Tastatur eınlesen 
sAUTO-Zeilennummer iaden 

ikeın BREAK, normal weiter 
sAUTO-Flag löschen 


‚zur Hauptschleife zurück 
;AUTO-Increment laden 

sauf AUTO-Zeilennummer addieren 
‚überlauf, AUTÜ-Mode verlassen 
;AUTO-Zeilennummer auf Stack 
‚neue AUTÖ-Zeilennummer > 65528 ? 
‚vergleich HL/DE 
‚AUTO-Zeilennummer wieder laden 
7 63328! AUTÜ-Mode verlassen 
‚neue AUTO-Zeilennummer merken 

32 x NOP 

;Ein-/Ausgabepuffer - 1 adressieren 
‚Zeile analysieren und übernehmen 


EETTHTRRRERRREREEEE 


Normale Programmeingabe ohne AUTO 


DEFB 
CALL 
JP 
RST 
INC 


DEC 


JP 


PUSH 


CALL 
DEC 
LD 
cP 
JR 
INC 


8,8 
B3EJH 
C, IAJ3H 
18H 

Å 

À 

Z, 1A33H 
AF 
1E5AH 
HL 

As (HL) 
Z, 1ASBH 
HL 
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12 x NOP 

‚Zeile von Tastatur einlesen 
ıBREAK! zum Hauptschleifen-Anfang 
ıl. Zeichen ©> ’ ° suchen 
‚Zeilenende (88)? 


Ja, zum Hauptschleifen-Anfang 
‚Flag retten (Cy=1, wenn Ziffer) 
Zeilennummer dekodieren 
Pufferadresse zurück (hinter ZNr) 
Zeichen laden 

;= Leerzeichen? 

1Ja; weiter zurück 

iPufferzeiger auf 1.Zeichen n. ZNr 


1A92 
1493 
1495 
1498 
1499 


1A9C 
149D 
1A9E 


1AAL 
1AA4 


1AA7 
1AAB 
tAAI 
1AAA 
1AAD 
1AAE 
LAAF 
1ABG 
1ABI 
1AB4 
1AB5 
1AB8 
1AB9 
1ABC 
1ABD 
1ABE 
1ABF 
1ACI 
1AC2 
1AC5 
Ach 
1467 
1AC8 
14C9 
1ACE 
1ACD 
1408 
1AD1 
1ADZ 
1ADJ 
1AD4 


TE 

FE 28 

cL c9 89 
D3 

CD C 18B 


Di 
Fi 
22 E6 78 


CD B2 79 
D2 5A 1D 


D5 
65 
AF 
32 DD 78 
D7 
B7 
F5 


EB 

22 EC 78 
EB 

CD 2C iB 
c5 

DC E4 ZB 
Di 

Fi 

D5 

28 27 

Di 

2A F9 78 
E3 

Ci 

B? 

E3 

cD 55 19 
Ei 

22 FI 78 
EB 

74 

Di 

E3 

24 


LD 
CP 
CALL 
PUSH 
CALL 


POP 
PūP 
LD 


CALL 
JP 


PUSH 
PUSH 
XOR 
LD 
RST 
OR 
PUSH 
EX 
LD 
EX 
CALL 
PUSH 
CALL 
POP 
POP 
PUSH 
JR 
POP 
LD 
EX 
PoP 
ADD 
PUSH 
CALL 
POP 
LD 
EX 
LD 
POP 
PUSH 
INC 


A, {HL} 
1, B9C9H 
DE 
1BCOH 


DE 
AF 
{ 78E6H), HL 


79B2H 
NC, 1D5AH 


DE 

BC 

À 

{78DDH) ,A 
10H 

À 

AF 

DE, HL 
(78ECH) HL 
DE,HL 
1BZCH 

BC 

C, ZBE4H 
DE 

AF 

DE 

Z, AESH 
DE 

HL, (78F9H) 
(5P) HL 
BC 

HL,BC 

HL 

1955H 

HL 
{(78F9H), HL 
DE, HL 
(HL) H 

DE 

HL 

HL 


- iib- 


Zeichen laden 

{= Leerzeichen? 

ija; 1. Leerz. ubergehen 
sZeilennummer auf Stack 
;Zwischencode erzeugen 
s{HL=Anfang-i, Bi=Länget5) 
tZeilennumser wieder laden 
Flag wieder laden 

Anfang des Zwischencodes-i als 
‚aktuellen Programmzeiger speichern 
;RAM-Erweiterungsausgang 
‚Direktbefehl ausführen 

si. Zeichen war keine Ziffer 
;Zeilennumser auf den Stack 
;Zeilenlänge auf den Stack 
;RESUME/RETURN-Flag löschen 


Zeile leer? 

iJaı Zero-Flag = | 

‚Flag auf Stack sichern 
‚Nostalgie vom TRS-8B Editor 


Zeile im Programatext suchen 
sAdresszeiger darauf im Stack sich, 
‚wenn gefunden, löschen 
;Zeilenadresse in DE 

Flags wieder laden 

ıZeilenadresse wieder auf Stack 
sbei Leerzeile zuruck zum Anfang 
Zeilenadresse wieder laden 
;Programmend-Adresse laden 

mit Zeilenlänge auf Stack tauschen 
;Programmend-Adresse in BC 
‚EndadressetZeilenlänge 

;zneue Endadresse, Auf Stack sich. 
‚Platz für neue Zeile schaffen 
‚neue Programmend-Adresse laden 
‚und abspeichern 

;Zeilenadresse in HL 

irgendeinen leilenzeiger eintr. 
;Zeilennummer wieder laden 
Zeilenadresse auf Stack 
sZeilenzeiger auf Nummernfeld 


1AD5 
1AD6 
1AD7 
1AD8 
1AD9 
1ADA 
tADB 
1ADE 
1ADF 
1AEB 
1AEI 
1AE2 
1AE3 
1AE 
1AE5 
1AE6 
1AE8 
1AE9 
1AEC 
1AEF 


tAF2 
1AF5 


1AF8 
1AFB 


1AF 
1AFD 
IAFE 
1AFF 


1B81 
1802 
1883 
1384 


23 
73 
23 
72 
23 
EB 
2A A7 78 
EB 


2A A4 78 
EB 


bB 
TE 


BEN 


23 
23 
23 


INC 
INC 
OR 
JR 
POP 
CALL 
CALL 
CALL 


CALL 
JP 


HL 

(HL) sE 
HL 
(HL), D 
HL 

DEH 
HL, (7847H) 
DE, HL 

DE 

DE 

Â, (DE) 
(HL) A 
HL 

DE 

Å 

NZ, 1AEIH 
DE 

1AFCH 
79B5H 
1B5DH 


78B8H 
1A33H 


iZeilennummer in Zeile eintragen 


Zeilenzeiger auf 1.Textbyte 


;Ein-/Ausgabepuffer-Startadresse 
sin DE 
ı- 2 = Beginn des Zwischencodes 


;Zwischencode in Programmtext 
jubertragen 
jAdresszeiger + { 


Zeilenende ? (98) 

‚nein, nächstes Byte übertragen 
;leilenanfangsadresse laden 

‚ab Zeilenadresse, Zeilenzeiger ern 
;RAM-Erweiterungsausgang 
ıVariablen-Tabelle und andere 
;Programmdaten löschen 
;RAM-Erweiterungsausgang 

‚zum Anfang der Hauptschleife 


FEEFEE IE E E HEHE AE FEFE FEE AE AEAEE AE FEAE AE EAEE EE AEE EEE 


Zeilenzeiger im ganzen Programmtext erneuern 


LD 
EX 


HL, 178A4H) 
DE,HL 


;Programmtext-Anfang in DE 


RHEIN 


Zeilenzeiger teilweise erneuern 
Eing.: DE = Zeilenadresse der Zeile, ab der die 
die Zeilenzeiger erneuert werden sollen. 


LD 
LD 
LD 
INC 
OR 
RET 
INC 
INC 
INC 
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Zeilenanfangs-Adresse in HL 


ileilenzeiger = 07 
{Programmende?) 


ija, fertig 
Zeiger und Zeilennumser übergehen 


1805 AF XOR AÀ A=B 


iBS BE cP (HL) mit Byte aus Zeile vergleichen 
1807 23 INC HL jZeilenzeiger + i 
1BB8 28 FC JR NZ, 1BQ6H ikein Zeilenende, zurück 
iBBA EB EX DE, HL ıleilenanfangsadresse in H. 

ıDE = Adresse der nächsten Zeile 
iBOB 73 LD (HL); E Adresse n. Zeile als Zeilenzeiger 
180c 23 INC HL sabspeichern 
1BƏD 72 LD {HL),D 
iBBE 18 EC JR 1AFCH ‚nächste Zeile 


FEAE EAEE E IE- d AEE AE AE AE AE ATE E IE IE dE FE HEE e EEE FEE iH e 


Für LIST-Kommando Argumente analysieren 

Eing.: Zero-Flag = I, wenn kein Argument angegeben 
HL. = Programmtextadresse 

Ausg.: BC = Adresse der 1. auszugebenden Zeile 
Stack = 2. Zeilennummer 


iBid 11 28 28 LD DE,B si. Zeilennumser = B setzen 
1B13 D5 PUSH DE sund auf Stack 
1B14 28 29 JR Z,1BiFH ikeine Argumente, weiter 
i1Bis Di POP DE ;@ vom Stack entfernen 
1B17 CD 4F tE CALL IEAFH ;i. Zeilennummer dekodieren 
IBIA D5 PUSH DE sund auf Stack packen 
iBiB 28 GB JR ZuIBZBH ikeine weiteren Zeichen! 
2. Zeilennumser = i. setzen 
1BiD CF RST 8 folgt ein ’-’ ? 
iBIE CE DEFB ACEH Token für ’-’ 
iBIF il FAFF LD DE,OFFFAH 2. Zeilennumser = 65538 setzen 
1822 C4 AF IE CAL  NZ,1E4FH weitere Zeichen? ja, 
2. Zeilennummer dekodieren 
1825 62 97 19 JP NZ, 1997H inoch mehr Zeichen? 
1Jas SYNTAX ERROR 
1B28 EB EX DE, HL ;2. Zeilennummer in HL 
1829 Di POP DE ‚1. Zeilennummer ın DE 
1B2A E3 EX (5P); HL ;2. Zeilennumser auf Stack nit 
}Rucksprungadresse tauschen. 
iB2B E5 PUSH HL ‚Rucksprungadresse wieder auf Stack 


AEH RE RE RE FEE E FE HE FE FE FE REE AEE AEAEE E EEE FEE EHE EE EE 
Zeile im Programmtext suchen 
Eing.: DE = Nusmer der Zeile 
Ausg.* Zeile vorhanden: Carry = I, Zflag = 1 
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1B2C 
1BZF 
1838 
1831 
1B32 
1833 
1B34 
1835 
1836 
1837 
1838 
1839 
1B3A 


1B3C 


183D 
1B3E 


1848 
1841 
1842 
1843 
1844 
1845 
1846 
1847 


1849 


2A Ah 78 
44 
4D 
TE 
23 
B 
2B 
cB 
23 
23 
TE 
23 


ARE 


co 
CD C9 Bi 


BC = Zeilenadresse 

HL = Adresse der n, Zeile 
Zeile nicht vorhanden: 

Carry = 8, Z-Flag = 8 

BC = Zeilenadresse der n. Zeile 

HL = Adresse der übern. Zeile 
nicht gefunden und Programmende erreicht! 

tarry = 8, Z-Flag = 1 

BC,HL = Programmendadresse - 2 


LD HL, (7844H) ;Programmanfangsadresse laden 
iD BH ıZeilenadresse in BC 
LD GL 
LD Âs (HL) iProgrammende ? 
INC HL ;tZeilenzeiger = BBBB) 
OR (HL) 
DEC HL 
RET z ija, fertig! 
INC HL ;Programazeiger auf Zeilennummer 
INC HL 
LD As (HL) sZeilennumser in HL laden 
INC HL 
LD Hs (HL) 
LD L,A 
RST 18H ‚Vergleich HL/DE 
$= gesuchte Zeile ? 
LD HB ;Zeilenanfangsadresse laden 
LD Lit 
LD Ày (HL?) ‚leilenzeiger laden 
INC HL 
LD H, (HL) 
LD L;A 
CCF \Carry-Flag invertieren 
RET Z gesuchte Zeile? ja-fertig 
CCF starry-Flag wieder zurück 
RET NC ıZeilennummer > gesuchte Zeile 
JR 1B2FH ‚nächste Zeile untersuchen 


RAR BEIE AAE AEE AEE EEE EE 


NEW - Befehl 

Alle Variablen und Zeiger zurücksetzen 

(die String-Bereichsdefinition bleibt erhalten) 
RET NZ Parameter? ja-5YNTAX ERROR 
(AL  BICH Bildschirm löschen 


= H9- 


1B4D 
1858 
1853 
1856 
1857 
1858 
1859 
185A 
185D 
1868 
1861 


1B64 


1869 
1B6B 
1B6C 


186E 


1872 
1873 
1874 
1877 
1B7A 
1B7D 


1888 
1883 


1889 
1B8C 
1B8F 
1898 
1893 
1894 
1895 
1898 
1899 
1B9A 
1898 
1B9E 
1BAl 


2A A4 78 
cD F8 1D 
32 El 78 


‚17 


23 
77 
23 
22 F9 78 
2A Ad 78 
2B 
22 DF 78 


BA 1A 

21 81 79 
36 84 

23 

id FB 


AF 
32 F2 78 
6F 
67 
22 FB 78 
22 F7 78 
2A Bi 78 
22 D6 78 


cD 91 tD 
zA F? 78 
22 FB 78 
22 FD 78 
CD BB 79 
Ci 
2A AB 78 
2B 
2B 
22 E8 78 
23 
23 
F9 
21 35 78 


22 B3 78 


CD BB 03 


;Programatextanfang in HL 

;TROFF aufrufen 

sAUTO-Mode löschen 

;Zeilenzeiger = 8000 an Programm- 
stextanfang (Programm löschen) 


Zeiger hinter BBB 

sals Programmendadresse speichern 
‚Programmanfangsadresse laden 

1 

jals Zeiger zur Programmfortführung 


Typcodetabelle = einfache Genauigkeit setzen 


LD HL, (7BA4H) 
CALL  iDFBH 

LD (7BEIH),A 
LD (HL) À 

INC HL 

LD (HL) A 

INC HL 

LD {(78F9HK), HL 
LD HL, (7BA4H) 
DEC HL 

LD {(78DFH), HL 
LD B, 1AH 

iD HL, 7901H 
LD (HL), 4 

INC HL 

DJNZ  1B69%H 

XOR A 

LD (TBF2H), A 
LD L;A 

LD HA 

LD (78FBH) HL 
LD {78F7H) HL 
LD HL, (78B1H) 
LD (7806H), HL 
CALL  1D91iH 

LD HL, (78F9H) 
LD {78FBH) HL 
LD (78FDH),HL 
CALL  79BBH 

POP BC 

LD HL, (78ABH) 
DEC HL 

DEC HL 

LD (78E8H) , HL 
INC HL 

INC HL 

LD SP, HL 

LD HL, 7885H 
LD (78B3H) HL 
CALL  038BH 
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Zähler = 25 
}Tabellen-Anfangsadresse 
Code f. einf.Gen. eintragen 
‚nächstes Byte 

slähler - 1. fertig ? 


idJa, TRAP-Flag löschen 


Adresse einer Fehlerroutine = 8 
sCONT-Adresszeiger = 8 

;BASIC-RAM Endadresse laden 

sals Stringbereichs-Zeiger speich. 
‚löscht alle String-Variablen 
;RESTORE aufrufen 
ıProgramm-Endadresse laden 
Endadresse der Variablen-Tabelle 
= Endadresse der Matrix-Tabelle 
AM-Erweiterungsausgang 
ucksprungadresse laden 

dresse des String-Bereichs 

2 


> 


n å On ë gua Oa ga M 
pne 


sals Stackanfangsadresse speichern 
;+ 2 


sin Stackpointer übertragen 
iZwischenspeicher f. Strings lösch. 
ı(Anfangsadresse in Zeiger) 
;Ausgabe-Flag auf Bildschirm,CR auf 
Drucker ausgeben, falls erforder), 


1BA4 
1BA7 
1848 
1BA9 


1BAD 
1BAE 
1BAF 
1882 


1883 
1BB5 
1888 
1BBA 
1BBD 


1800 
iBCi 
1BC4 
1BC5 
1BCh 
1869 
1BCA 
IBCB 
18CC 
1BCD 
iBCF 
1BD2 
tBD3 
1BD5 
1BD8 
1809 
1BDC 
1BDF 


CD 69 2i 
AF 
67 
oF 
J2 DC 78 
E5 
c5 
2A DF 78 
69 


JE JF 
cD 2A 03 
JE 28 
CD 2A 03 
c3 3A 05 


FE 28 
CA 5B iC 


FE 22 

CA 77 1C 
B7 

CA 7D 1C 
3A Be 78 
B7 


CALL 
XOR 
LD 
LD 
LD 
PUSH 
PUSH 
LD 
RET 


2169H 

À 

HA 

Lå 
{78DCH),A 
HL 

BC 

HL, (78DFH) 


‚Indizierungs-Sperre aufheben 
10 auf Stack als Endekennung 
;Rucksprungadr. wieder auf Stack 
Zeiger zur Programmfortführung 


FERIEN AE AE FE ERE FEE 


Fragezeichen ausgeben und eine Zeile einlesen 


LD 
CALL 
LD 
CALL 
JP 


A? 
B3ZAH 
A’ 
B32AH 
0534H 


‚Fragezeichen ausgeben 
Leerzeichen ausgeben 


seine Zeile einlesen 


FEE HEIE AE HEIE FE HE FE FE HEREA EAE FE AEE AE AE AE AE HE EIE AEE AEE EEE AE EEEE 


Zeile analysieren und Zwischencode erzeugen 
Eing.: HL = Textanfangsadresse (Text mit 88 abgeschl.) 
BC = Länge des Zwischencodes + 5 
HL = Adresse vor Zwischencode 
(= Ein-/Ausgabepuffer - 3) 


Ausg. : 


A 
(78B@H) A 
GA 

DE,HL 

HL, (78A7H) 
HL 

HL 

DE,HL 

Ar (HL) 

Z, 1C5BH 
BA 
Z,1C77H 
À 

Z, 1C7DH 
À, (7BB0H) 
A 


< RiEs 


ıDATA-Flag löschen 
sZeichenzähler = 8 


Adresse des Ein-/Ausgabepuffers 
2 


sin DE 

Zeichen aus Textzeile laden 
ı= Leerzeichen ? 

13a! direkt übertragen 
Zeichen in B (als Trennzeichen) 
i= Anführungszeichen ? 

ja! String übertragen 
jZeilenende ? 

Ja! fertig 

;DATA-Flag laden 

gesetzt ? 


1 BEB 
1BE1 
1BE4 
IBES 
1BE8 
1 BEB 
IBEC 
iBEE 
1BFB 
1BF2 


7E 

c2 5B it 
FE SF 

3E B2 

CA SB It 
TE 

FE 38 

38 85 

FE SC 

DA SB ic 


D5 

1i 4F 16 
c3 

Bi 3D ic 
65 

B6 7F 

TE 

FE 61 

38 87 

FE 78 


28 F3 


E5 
13 
1A 
B7 
FA 39 iC 
ar 
78 


As (HL) 


NZ, 1C5BH 


7? 

A, BB2H 

Z, 1C5BH 
As (HL) 

0 

Cy IBF5H 
7g? 

C, iC5BH 


Zeichen laden 

ija! direkt übertragen 

‚= Fragezeichen ? 

ıPRINT-Token laden 

ija! in Zwischencode übertragen 
Zeichen wieder laden 

Zeichen < 0 ? 

iJa, auf Schlusselworte prúfen 
Zeichen < °C ? 

ija, direkt ubernehmen 


Text auf gültiges BASIC-Schlússelwort prüfen 


PUSH 
LD 
PUSH 
LD 
PUSH 


INC 


DE 


DE, 164FH 


BC 


BC, 1C3DH 


BC 

B, 7FH 
Â; (HL) 
61H 

C, 1CBCH 
73H 


NC, 1 COCH 


5FH 
(HL) À 
C (HL) 
DE, HL 
HL 
(HL) 
P, 1COEH 
B 

As (HL) 
7FH 

Z 

£ 


NZ, 1CBEH 


DE,HL 
HL 

DE 

A, (DE) 
À 
M,1C39H 
A 
AyB 
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iZwischencode-Zeiger auf den Stack 
;Anfangsadresse der Schluüsselworte 
sZeichenzähler auf Stack 
;Rucksprungadresse setzen 


;Token-Zähler = 7F setzen 
Zeichen aus Text laden 
;Kleinbuchstabe? 

‚nein! 


‚nein! 

sin Großbuchstaben umwandeln 
Zeichen wieder in Text zurück 
si. Zeichen laden 
iSchlusselwortzeiger in HL 
‚nächstes Schlüsselwort suchen 
Anfang eines Schlüsselworts ? 
jnein, weiter 

;Token-lähler + I 

si. Zeichen des Schlusselworts 
‚Bit 7 löschen 

;Ende der Schlüsselwort-Tabelle 
;= Textzeichen ? 

nein, nächstes Schlusselwort 
‚Adresszeiger vertauschen 
;Pufferzeiger auf den Stack 
;Schlusselwort-Zeiger + I 

in. Zeichen des Schlusselworts 
neues Schlüsselwort ? 

}Jja, Schlüsselwort erkannt 
sleichen in C 

;Token = 6010? 


16235 
1627 
1629 
1C2A 
1C2B 
icc 
1C2D 
Icar 
1631 
1633 
1634 
1636 
1637 


1639 
1C3A 
1C3B 
163 


1C3D 
IC3E 
1C3F 
1648 
1641 
1642 
1644 
1646 
1648 
1649 
1C4A 
ICAC 
IC4E 


158 


1651 
1653 
1054 
1655 
1056 
1657 
1658 


1C5A 


EB 
79 
ci 
Di 
EB 
FE 95 
36 3A 
20 82 
ac 
23 
FE FB 
28 8c 
36 3A 
23 
BA 93 
78 


23 


gc 


18 1D 


EB 


CP 
JR 
RST 
DEC 
INC 
LD 
CP 
JR 
AND 
cP 
JR 
POP 
JR 


8DH 

NZ, 1C2BH 
10H 

HL 

HL 

Às (HL) 
61H 

6, 1033H 
SFH 

£ 

Z, 1C1DH 
HL 
1CBCH 


Token ermittelt 


LD 
POP 
EX 
RET 


GB 
AF 
DE, HL 


nein, weiter 

iJa, Leerzeichen erlaubt 
‚Pufferzeiger ein Zeichen zurück 
‚Pufferzeiger auf nächstes Zeichen 
Zeichen aus Text laden 
;Kleinbuchstabe ? 

‚nein! 

sin Großbuchstaben umwandeln 

;= Buchstabe aus Schlüsselwort ? 
jda, weiter 

‚nein, Pufferzeiger wieder zurück 
‚nächstes Schlüsselwort versuchen 


Token in € 
Stack bereinigen 
;Adresszeiger vertauschen 


Token oder Text in Zwischencode 


EX 
LD 
POP 
POP 
EX 
CP 
LD 
JR 
INC 
INC 
CP 
JR 
LD 
INC 
LD 
LD 
INC 
EX 
INE 
INC 
JR 


EX 


DE,HL 
ÁC 

BC 

DE 

DE, HL 
95H 
(HL) y D? 
NZ, 1C4AH 
t 

HL 

BFBH 

NZ, 1C5AH 
(HL) E? 


B, 93H 
(HL), B 


DE, HL 


1C77H 
DE, HL 
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;HL = Pufferzeiger 

‚Zeichen oder Token in A 

jZeichenzähler laden 

;Zwischencode-Zeiger laden 

a vertauschen 
= ELSE-Token ? 

po in Zwischencode 

‚nein, '°’ Ignorieren 

1Jas Zeichenzähler + i 

‚Zwischencode-Zeiger hinter ’:®’ 

;"’* - Token ? 

nein! 

ijas °??? in Zwischencode 

ıZwischencode-Zeiger + i 

;REM-Token in Zwischencode 


< 


sZwischencode-Zeiger + I 
ıAdresszeiger vertauschen 
sZeichenzähler + 2 


tRestl.Text aus Puffer unverändert 
sin Zwischencode übertragen 
sAdresszeiger vertauschen 


1658 
105€ 
1650 
1C5E 
1C5F 
1661 
1663 
1665 
1667 
IC6A 
ICSC 


1¢78 


1671 
1672 
1674 
1675 
1677 
1678 
1679 
1C7A 
1C07B 


167D 


1681 
1682 
1083 


1687 
188 
1689 


1C8B 
168 
1680 


1C8F 


4D 


2B 


INC HL ;Pufferzeiger + 1 

LD (DE), A Token oder Zeichen in Zwischencode 

ING DE ;Zwischencode-Zeiger + | 

INC £ sZeichenzähler + 1 

SUB re? Ona? 

JR 2,1C67H 1Ja, DATA-Flag löschen 

cp 4EH ‚DATA - Token ? (88 - 34) 

JR NZ, 1C6AH inein! 

LD (78BOH) ,A Ja, DATA-Flag setzen 

SUR 59H REM - Token ? (93 - 3A) 

JP NZ, 1BCCH ‚nein, zurück 

LD BA ;d als Trennzeichen in B 

LD A, HL) ‚Text bis Trennzeichen oder Zeilen- 
sende unverändert in Zwischencode 

OR À Zeilenende ? 

JR Z, 1C7DH ija, fertig 

cP B sTrennzeichen ? (bei ' = ") 

JR Z, 1C5BH Ja, zurück 

INC HL ;Pufferzeiger + i 

LD (DE) A iZeichen in Zwischencode 

INC c sZeichenzähler + i 

INC DE Zwischencode-Zeiger + į 

JR 1C76H ‚nachstes Zeichen 

LD HL,5 HL =5 

LD BH ;B=8 

ADD HL, BC sZeichenzähler + 5 

LD BH sin BC 

LD GL 

LD HL, {7BA7H) ‚Anfadr. d. Ein-/Ausgabe-Puffers 

DEC HL d 

DEC HL ;= Zeiger auf Byte vor dem 

DEC HL ıZwischencode 

LD {DE),A Zwischencodeende sit 3 Nullen 

INC DE imarkieren 

LD (DE); A i (Endekennung bei Direktbefehlen) 

INC DE 

LD (DE); A 

RET idas war’s 


FERE IERE IEE AE HEHE AERE AE AEE E EE AE FE FEAE AEAEE IE IEE EEEE EE E E 


Restart 18 
Vergleich von HL und DE 
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Eing.: HL,DE = 16 Bit Integer ohne Vorzeichen 
Ausg.: HL > DE: Z=0, Cy=0 

HL = DE: l=, Ĉy=ġ, A=0 

HL < DE: Z=0, Cy=i 


1698 7C LD AyH ¡MSB HL = MSB DE ? 
KIN 92 SUB D 

1692 CB RET MZ ‚nein, fertig 
1693 7D LD AsL ıL5B HL = LSB DE ? 
1094 93 SUB E 

15 0 RET 


RR EE 


Restart 8 

Syntax-Prufung 

Eing.: HL = Adresse des zu prüfenden Bytes 
Prüfbyte nach RST 8 - Befehl 

Ausg.: HL = Zeichen nach dem Prüfbyte, wenn gleich. 
bei Ungleichheit SYNTAX ERROR. 


1694 7E LD Ar, (HL) Zeichen aus Zeigerposition laden 
1697 E3 EX (SP) HL Zeiger mit Rücksprungadr. tauschen 
1698 BE cP (HL) i= dem, dem Aufruf folg. Zeichen ? 
169 23 INC HL ;Rucksprungadresse + 1 

1C9A E3 EX (SP) HL wieder mit Zeiger vertauschen 

1C9B CA 78 1D JP Z, 1078H gleich, fortsetzen mit RST 10 
IC9E 63 97 19 JP 1997H ungleich, SYNTAX ERROR 


FEIE IE JE HEEE IEEE EAEE AERE AE EAEE E E FEAE AEE EEEE E EEE 


FOR - Anweisung 


1CA1 IE 64 LD Ar 64H ‚Indizierung sperren 

1CA3 32 DC 78 LD (78DCH) ‚A 

ICA6 CD 21 IF CALL  1F21H jAnfangswert in Laufvariable 

169 E3 EX (SP) HL ‚Programmzeiger auf Stack 

ICAA CD 3 19 CALL 1934H Schleife ait gleicher Lauf- 
ivariablen bereits auf dem Stack ? 

1CAD Di POP DE Programazeiger in DE 

ICAE 28 85 JR NZ, 1CB5SH nein! 

ic30 89 ADD HL, BC 13a, durch Stackkorrektur alle 
Schleifen bis dort löschen 

ıcBı F9 LD SP, HL iStackpointer neu setzen 

1CB2 22 E8 78 LD (78E8H) , HL jund neuen Anfangswert abspeichern 

1C35 EB EX DE, HL ;Programmzeiger in HL 

itBb BE 88 LD C8 ‚noch mindestens 16 Byte frei ? 
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1CB8 
tCRR 
iCBC 
1CBF 


1668 
1c61 
1664 
1605 
1666 
1667 
16C8 
1CCB 
ICE 


ICCF 
1cD2 
1cD3 
1cD4 
1cD7 
1CDA 


1cDE 
1cCDE 
1cDF 
AcE1 


1CE4 
tCE5 
1CE6 
1CE7 
ICEA 


1CEC 


1CF2 
1CF3 
1CF4 
icF5 
1CFB 
1CF9 
1CFA 
1CFE 
1CFD 


CD 63 19 
E3 
cD 85 ir 
E3 


E5 
2A A278 
E3 
CF 
BD 
E7 
CA Fé BA 
D2 Fá BA 
F5 


CD 37 23 
Fi 
ES 
F2 EC 1C 
CD 7F BA 
E3 


11 81 88 
TE 

FE CC 

CC Bi ZB 


D5 

E5 

EB 

CD IE 89 
18 22 


CD Bi BA 
CD BF 09 
Ei 

c 

D5 

8i B8 8i 
3i 

3A 

TE 

FE CC 

JE Bi 


CALL 
PUSH 
CALL 
EX 


PUSH 
LD 
EX 
RST 
DEFR 
RST 
JP 


PUSH 


CALL 
POP 
PUSH 
JP 
CALL 
EX 


LD 


CP 
CALL 


PUSH 
PUSH 
EX 
CALL 
JR 


CALL 
CALL 
POP 
PUSH 
PUSH 
LD 
LD 
LD 
LD 
cP 
LD 


1963H 
HL 
IF@SH 
(SP), HL 


HL 

HL, (78AZH) 
{SP}, HL 

8 

BBDH 

20H 

Z: 0AF6H 
NC, BAFSH 


2337H 
AF 

HL 

P, ICECH 
BATFH 
(5P), HL 


DE, t 

Âs (HL) 
OCH 

Z, ZBBIH 


DE 
HL 
DE, HL 
899EH 
1DBEH 


BABIH 
BIBFH 


BC 


BC: 8100H 
Dc 

E,D 

Ás (HL? 
BECH 

Ari 


inein, OUT OF MEMORY - Error 
‚Programmzeiger auf Stack 
‚nächste Anweisung suchen 
iProgrammzeiger auf n. Anweisung 
sauf Stack, alten Zeiger laden 
sund auch wieder auf den Stack 
sZeilennummer laden 

mit Zeiger auf Stack tauschen 
folgt ein ’TO’ - Token ? 


;Typ der Laufvariablen testen 
‚String 7 ja, TYPE MISMATCH - Error 
sdopp.Gen.? ja, TYPE MISMATCH - Err 
;Typ-Flag sichern 

(FF = Integer, @1 = einf.Genauigk) 
Endwert-Ausdruck berechnen 
;Typ-Flag laden 

;Programmzeiger auf Stack 

seinf. Genauigkeit! 

;Integer, Endwert umwandeln 
;Programmzeiger in HL 

;Endwert auf den Stack 
jErhöhungswert = 1 

‚nächstes Zeichen laden 

‚= STEP - Token 7 

jJa, Erhöhungswert auswerten und 
sin Integer umwandeln (in DE) 
;Erhöhungswert auf den Stack 
‚Programmzeiger retten 
jErhöhungswert in HL 

‚Erhöhungswert testen 

;weiter bei IDBE 


‚Endwert in einf.6en. umwandeln 
yin Y übertragen 
iProgrammzeiger wieder laden 
‚Endwert auf den Stack 


jErhöhungswert = 1 in Y 


;nächstes Zeichen laden 
1= STEP - Token ? 
‚Flag fur positive Erhöhung setzen 


CHF 
iDBi 
1004 
1085 
1088 
100R 


1D0E 
1008F 
1Di0 
iMi 
1D1Z 
1D13 


1Di4 
1015 
1D16 
1019 
1D1A 
IDIc 
1D1D 


IME 
1021 
1022 
1025 
1028 
iD2c 
1D2D 
1D2F 
1D31 
1032 
1035 
1036 
1037 
1038 
1039 
103C 
1D3D 
1D3E 


20 BE 

cD 38 23 
£3 

CD Bi BA 
CD BF 89 
cD 55 09 


Ei 
[5 
D5 
uf 
E7 
47 


c5 

E5 

żÁ DF 78 
E3 

gó 81 

c3 

33 


cD 58 83 
B7 

Ch AB iD 
22 E6 78 
ED 73 E8 78 
7E 

FE 3A 

28 29 

B7 

c2 97 19 
23 
TE 

23 

B& 

CA TE 19 
23 

5E 

23 


JR 

CALL 
PUSH 
CALL 
CALL 
CALL 


POF 
PUSH 
PUSH 
LD 
RST 
LD 


PUSH 
PUSH 
LD 
EX 
LD 
PUSH 
INC 


NZ, LDBFH 
2338H 
HL 
BABIH 
BIBFH 
0955H 


HL 
BC 
DE 
A 
28H 
Br 


BC 

HL 

HL, {78DFH) 
{SP} HL 

B: 81H 

BC 

5P 


‚nein! 

;Erhöhungswert auswerten 
‚Programmzeiger auf den Stack 
‚Erhöhungswert in einf.Gen. umwand. 
sund in Y eintragen 

‚Erhöhungswert testen (A=1 wenn 
‚positiv, ASFF wenn negativ) 
;Programmzeiger laden 
‚Erhöhungswert auf Stack 


‚Erhöhungs-Flag in C 

‚Typ des Erhöhungswerts testen 
‚Typ-Flag in B 

(Bi = einf.Gen. , FF = Integer) 
ıTyp-Flag u. Erh.-Flag auf Stack 
‚Programmzeiger auf Stack 
Adresse der Laufvariablen in HL 
‚mit Prog.zeiger auf Stack tauschen 
;FOR-Token (Bi) in B 

tals Markierung auf den Stack 
LSB entfernen 


FERE HERE IE FE REE HE FE FE FE FE HEHEHE EI E 


HL muß auf ’:’ oder Zeilenende zeigen 


Programmaustührung 
CALL  8358H 

ÖR A 

CALL  NZ,1DABH 
LD (78E6H) HL 
LD (T8E8H) ,5P 
LD Ás iHL) 

CP TaT 

JR Z, 1D5AH 

OR A 

JP NZ, 1997H 
INC HL 

LD Às (HL) 

INC HL 

OR (HL) 

JP 2,197EH 
INC HL 

LD E, (HL) 

INC HL 


- 127 - 


Tastatur abfragen 

‚neue Taste gedrückt? 

jja, analysieren 
;Programmzeiger abspeichern 
‚Stackpointer speichern 
Zeichen laden 

y':’7 (Mehrere Anweisungen in Zeile 
ida! 

Zeilenende ? 

‚nein, SYNTAX - ERROR 
+Programmende? 
i(Zeilenzeiger = 0000) 


iJa, implizites Ende 
ıProgrammzeiger auf Zeilennummer 
jZeilennummer in DE laden 


iD3F 56 


1D41 22 A278 
1D44 3A iB 79 
1D47 37 

1048 28 Bf 


1D4B JE 3C 
ıD4D CD 2A 83 
1058 CD AF OF 
1053 JE JE 
1055 CD 2A 83 
1058 Di 

1059 EB 

1054 D7 

1D58 ii 1E iD 
1D5E D53 

iD5F CB 

iD6B Dé 88 
1D62 DA 21 1F 
1D65 FE 3C 
1D67 D2 E7 2A 


iDAC 26 88 
iDGE EB 

1D6F 21 22 18 
1074 23 


1076 65 
1077 EB 


1078 23 


LD 
EX 
LD 
LD 
OR 
JR 
PUSH 
LD 
CALL 
CALL 
LD 
CALL 
POP 


LD 
INC 
LD 
PUSH 
EX 


D, (HL) 
DE, HL 
{78A2H)}, HL 
Às (7918H) 
À 
Z,1D59H 
DE 

A 3CH 
B3ZAH 
BFAFH 

Ay 3EH 
DI2AH 

DE 

DE, HL 
10H 

DE, 1D1EH 
DE 

Z 

80H 

C iF2iH 
JCH 

NC, 2AE7H 


CÀ 

BB 
DE,HL 
HL, 1822H 
HL, BC 

Cy (HL) 
HL 

B, (KL) 
BC 
DE,HL 


sZNr. in HL, Prog.zeiger in DE 
Zeilennumser = aktuelle ZNr 
sAblaufverfolger eingeschaltet? 
3 (TRON) 

jnein! 

Programmzeiger auf Stack 

ı’>’ ausgeben 


ıZeilennummer ausgeben 
PE ausgeben 


;Programmzeiger wieder laden 
ıProgrammzeiger in HL 

‚nächstes Zeichen adressieren 
sRücksprungadresse auf Stack 


Ende der Anweisung 
;Token ? 

inein, Zuweisung ohne LET 
jAnweisungs-Token ? 
jnein! 

Token # 2 in K 


Programmzeiger in DE 

Anfang der Sprungtabelle 

ı+ 2*Token = leiger auf Sprungadr. 
ıSprungadresse laden 


sund auf den Stack 
‚Programazeiger wieder in HL 


FEMEIE EAE IEEE AE FE AE dE IAE HEA AEEA FE EAE IEEE E FEE EE E EEEE 


Restart 18 
Nächstes Zeichen im Programmtext suchen 
29, BA (LF) und 28 (° °) werden ubergangen 
Eing.: HL = Programzeiger 


Ausg.: À = Zeichen 


INC 


Carry = 1, wenn Ziffer 
Z-Flag = 1, wenn Zeilen- oder Anweisungsende 


HL 
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‚Programazeiger + 1 


1079 
107A 
1D7C 
1D7D 
1D7F 
1082 
1084 
1086 
1088 
1D88 
1D8D 
1DBE 
1D8F 
1098 


1091 
1092 
1095 
1096 


109A 


1DAA 
1DAB 


7E 

FE 3A 
Da 

FE 28 

CA 78 1D 
FE BB 

J3 85 

FE 89 

D2 78 1D 
FE 30 

3F 

3c 

3D 

c9 


EB 
ZA A4 78 
2B 
22 FF 78 
EB 
(9 


cD 58 83 

B7 

ca 

20 20 00 00 08 
32 99 78 

JD 

co 


3c 
C3 B4 1D 


LD Ás (HL) Zeichen laden 

CP r? Ona? 

RET NC ija! 

CP Y iLeerzeichen ? 

JP 2,1D78H Ja, nächstes Zeichen 
CP OBH S< OBH ? 

JR NC, LDSBH ‚nein! 

cP 09H 1% 89H ? (schließt 89 u. BA aus) 
JP NC, 1078H iJa, nächstes Zeichen 
CP gp Ziffer ? 

CCF ida, Carry = 1 

INC À Zeilenende ? 

DEC À 

RET ifertig 


FEIE IERE E FEFE FEFE AEAEE AE EHE FE FE AEE E-H HEHE AE AE AEE AE FE AEE GEEH 


RESTORE - Anweisung 
Zurücksetzen des DATA-Zeigers 


EX DE,HL ‚Programmzeiger in DE 

LD HL, (7BA4H) ;Programm-Startadresse laden 
DEC HL wi 

LD {TBFFH) HL ‚als DATA-Zeiger ablegen 

EX DE,HL iProgranszeiger wieder in HL 
RET fertig 


RRRRRRRRRHHRRRRHRHRHRHENNE 


Tasten-Betätigung während der Programmausführung 
oder bei LIST analysieren 


CALL 2358H Taste betätigt ? 

OR À l 

RET Z jnein! 

DEFB 8,8,8,8,8 ‚3 x NOP 

LD (78994), A Zeichen in INKEY$-Zwischenspeicher 
DEC À ıBREAK ? 

RET NZ nein, fertig! 


FRERE REE FEAE IEEE EEEE AEE AEE AEEA AE EE AE EIEEE EE EE 
Programsunterbrechung durch BREAK 


INC À iA = 1 setzen (BREAK-Kennung) 
JP 1DB4H weiter bei END 
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IDAE 


1DB8 
1DB3 
1DB4 
1DB7 
1DBA 
1DBD 


1DBE 
1DC8 
1Dc1 
1DC4 
1DC5 
1DCh 
10C7 
1DC8 
10C9 
1DCR 
tDCE 
iDDI 
1DD4 
auf 


1DD7 
1DDA 
1DDB 
1DDE 


1DE! 


1DE4 
tDE7 
tDEB 
1089 


ca 
F5 
CC BB 79 
Fi 
22 £6 78 
21 B5 78 
22 B3 78 
2i 


Fé FF 

Ci 

2A AZ 78 
E5 

F5 

7D 

Ah 

3c 

28 09 

22 F5 78 
ŻA E6 78 
22 F7 78 
CD 8B 83 


cD FI 28 
fl 
21 38 19 


(2 86 1A 


63 18 1A 


2A F7 78 
TC 

B5 

1E 28 


PEERI EIER AE E E dE EAE EEE EE EEE FEFE FE E EE E EE E E 


END - Anweisung 
Beenden der Programmausfuhrung 


RET 
PUSH 
CALL 
POP 
LD 
LD 
LD 
DEFB 


NZ 

AF 

2, 79BBH 
AF 
{78E&H) , HL 
HL, 78B5H 
(78B3H),HL 
2iH 


folgen Parameter”? ja, Fehler 
sEND-Flag {A=B) auf Stack 
ıRAM-Erweiterungsausgang 

;END-Flag wieder laden 

jaktuellen Programmzeiger speichern 
sZwischenspeicher f. Strings lösch. 
stZeiger auf Anfang) 


Ansprung bei BREAK in INPUT-Anweisung 


OR 
POP 
LD 
PUSH 
PUSH 
LD 


POP 
LD 
JP 


JP 


FERAE IEE HEIE AAEE AE EAE AE AE HE E AEAEE AEE EAEE EE EE E E E Ee ee 


BFFH 

BC 

HL, (78AZH) 
HL 

AF 

Al 

H 

A 

Z, 1DD4H 
(TBF5H) HL 
HL, 178E6H) 
78F7H) HL 
B39BH 


ZDF HH 
AF 

HL, 1930H 
NZ , 1AB&H 


1A18H 


CONT - Anweisung 
Nach BREAK oder Fehler Programmausfuhrung fortsetzen 


LD 
LD 
OR 
LD 


HL, (78F7H) 
AH. 

L 

E, 28H 
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| 
ıLD HL,BFFF&6H Damy-Befehl 
sEND=Flag = FF (BREAK in INPUT) 
;Rucksprungadresse vom Stack entf. 
saktuelle Zeilennummer laden 
sauf Stack 
END-Flag auf Stack 
Zeilennummer = FFFF ? 
i (Direkt-Mode) 
ija! 
nein, als CONT-Zeilennr. speichern 
saktuellen Programmzeiger 
sals CONT-Zeiger speichern 
sAusgabe-Flag auf Bildschirme. CR 


Drucker ausgeben, falls erforderl. 
SCR auf Bildschirm, falls erforder] 
:END-Flag laden 

Text ’BREAK’ adressieren 

jwenn nicht END und nicht Direkt- 
iMode, ° BREAK IN Zeile’ ausgeben 
jzuruck zur Hauptschleife 





sCONT - Programazeiger laden 

= 2000 ? 

sikeine Fortsetzung söglich) 
‚Fehlercode CAN’T CONTINUE laden 


iDEB 
iDEE 
iDEF 
1DF2 
1DF5 
1DF6 


1DF7 


1DF8 
1DF9 
iDFC 


iDFD 


1DFE 
1DFF 


1EB8 
1E82 


1E03 
1E05 


1EB6 
1EB8 


1689 


CA AZ 19 
EB 
2A F5 78 
22 A278 
EB 
c9 


JE 


AF 
32 1B 79 
c9 


Fi 


Ei 
c9 


IE 84 
8i 


IE 88 


JP Z, 17A7H iJa, Fehlermeldung ausgeben 


EX DE, HL ‚Programmzeiger in DE 

LD HL, (78F5H) ;CONT-Zeilennummer laden 

LD {7BA2H) HL sals aktuelle Zeilennummer speich. 
EX DE,HL ‚Programmzeiger wieder in HL 

RET- iProgrammlauf fortsetzen 


EHER 


TRÓN - Anweisung 
Ablaufverfolger einschalten 
DEFB JEK SLD À BAFH bei TRON A< setzen 


TROFF - Anweisung 
Ablaufverfolger ausschalten 


XOR À ‚bei TROFF A = @ setzen 
LD {791BH),A sals TRACE-Flag speichern 
RET 

POP AF inicht benutzt 

POP HL 


RET 
HHHRHRHRHEEN 


DEFSTR - Anweisung 

String-Variable definieren 

LD Ey 3 ıTypcode = String in E 
DEFB ĝi ıLD BC,BZIEH Dummy-Befehl 


DEFINT - Anweisung 

Integer-Variable definieren 

iD E,2 ;Typcode = Integer in E 
DEFB @i ;LD BC,B41EH Dummy-Befehl 


DEFSNG - Anweisung 

Variable einfacher Genauigkeit definieren 

iD E4 \Typcode = einf. Genauigkeit in E 
DEFB 8 ıLD BC,BBIEH Dummy-Befehl 


DEFDBL - Anweisung 


Variable doppelter Genauigkeit definieren 
LD E8 ;Typcode = dopp. Genauigkeit in E 
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1EBB 
1EBE 
El! 
1E12 
1E13 
1E15 
1E16 
1E17 
1E18 
1E1A 
1Eit 
1EiD 


1E21 
1E23 
1E24 
1E25 
1E26 
1E27 
1E28 
1629 


1E2A 
1EZD 
1EZF 
1638 
1E31 
1632 
1E33 
1635 
1E36 
1637 
1639 
1E3A 
1E3B 


1E3D 
1E3E 


CD 3D 1E 
Bi 97 19 
c3 

D8 

DA 41 

4F 

47 

D7 

FE CE 
20 09 

D7 

cD 3D 1E 
D8 

D6 41 

47 

D7 

78 

9i 

D8 

st 

E3 


219 79 
B6 88 


FE 4 


gemeinsame Routine 


CALL  1E3DH ın. Textzeichen = Buchstabe? 

LD BC, 1997H ;SN-Error Routine adressieren 

PUSH EC und auf Stack packen 

RET £ ikein Buchstabe, SYNTAX ERROR ausg. 

SUB 41H ‚Stellung im Alphabet ermitteln 

LD HA sin B und C übertragen 

LD BA 

RST 18H nächstes Zeichen laden 

{pP BCEH ;= ’-’-Token 

JR NZ, 1EZ5H jnein! 

RST 18H ‚nächstes Zeichen laden 

CALL  1E3DH $= Buchstabe ? 

RET £ snein, SYNTAX ERROR ausgeben 

SUB 41H ‚Stellung im Alphabet ermitteln 

LD BA sals Ôber-Wert in B 

RST 10H nächstes Zeichen adressieren 

LD Å; B i2. Buchstabe < 1. Buchstabe ? 

SUB c 

RET C ija, SYNTAX - ERROR ausgeben 

INC A ‚Differenz + 1 = Zähler 

EX (SP) HL ıProgrammzeiger auf Stack 
jAdresse der SN-Routine löschen 

LD HL, 7981H ;Typcode-Tabelle adressieren 

LD B,8 ‚Offset f. 1. Buchstaben in BC 

ADD HL, BC įtTabanfang =. 1. Buchstabe in Tab. 

LD (HL), E ;Typcode in Tabelle eintragen 

INC HL ;Tabellenadresse + I 

DEC A Zähler - 1 

JR NZ, 1E38H jfertig ? nein-nächster Buchstabe 

POP HL ıProgramszeiger laden 

LD A, (HL) Zeichen aus Programmtext laden 

cP ae ifolgen weitere Parameter ? 

RET NZ nein, fertig 

RST 18H inächstes Zeichen laden 

JR 1EBBH weitere Definitionen eintragen 


KEE EE EAEE EAEE A AEE EE EE EEEE E E dE EEEE E 


Testet, ob Zeichen ein Buchstabe ist 

Eing.: HL = Adresse des zu untersuchenden Zeichens i 
Ausg.: Cy = 8 - Buchstabe, (y = 1 - kein Buchstabe 
LD A, (HL) Zeichen laden 

cp A A? 
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1648 
1E41 
1E43 
1E44 


1E45 
1E46 
1E49 


1E4A 
1E4C 


1E4F 
1E50 
1£52 
1653 
1E56 
1657 
1E5A 
1ESB 
1ESE 
1E5F 
1E68 
1E6i 
1E62 
1E65 


1669 
1E6A 
1E6B 


D8 
FE 5B 


D7 
cD 02 28 
Fg 


IE 88 
63 A219 


TE 
FE 2E 


2A EC 78 
CA 78B 1D 


11 28 28 
D7 


E5 
F5 
21 %8 19 


DA 97 19 
62 
6B 
19 


RET £ ija, kein Buchstabe 
cP 5BH $= Z ja Carry = f 
CCF iCarry invertieren 
RET 


EREHE IE FE AE FE EAE FE E E AE AE E FE E d dE FE AE dE FE FE FE AE AEE FE AE AE EAE FE E EE 


Ausdruck auswerten und ganzzahligen Wert 
< 32768 ermitteln. 

Eing.: HL = Textadresse - 1 

Ausg.: DE = Ergebnis 


RST 18H jnächstes Zeichen adressieren 
CALL  ZBO2H Ausdruck auswerten 
RET P $> 32767 ? nein, fertig 


FREER AE AEAE IE AE FE AE AEE HEE FEAE AE AE AE Ade de AE EAEE EEEE EE EEEE 


FUNCTION CODE - Error 
LD E18 Fehlercode in E 
JP L9A2H jFehlermeldung ausgeben 


RATTE 


String in Zahl umwandeln í < 65538 ) 
Eing.: HL = Adresse des Strings 
Ausg.: DE = Zahl 


LD Ay (HL) Zeichen aus String laden 
CP 2EH „= tr. 7? 

EX DE, HL iStringzeiger in DE 

LD HL, (7BECH) ı’. -Zeilennummer in HL 
EX DE, HL Zeiger und ’.’-ZNr tauschen 
JP Z, 1078H ija; fertig 

DEC HL ‘Stringzeiger - í 

LD DE, B Zahl = 8 setzen 

RST 10H ‚nächstes Zeichen laden 
RET NC skeine Ziffer, fertig 
PUSH HL sStringzeiger auf Stack 
PUSH AF Zeichen auf Stack 

LD HL, 1998H Zahl > 1998H ? 

RST 18H .std.h. Zahl#iß > 65529) 
JP C, 1997H ıJas SYNTAX ERROR 

LD HD Zahl in HL umladen 

LD LiE 

ADD HL, DE Zahl # 2 


1EöC 
1E6D 
1ESE 
1E6F 
1678 
1E72 
1E73 
1E75 
1E76 
1677 
1E78 


1E7A 
1E7D 
1EB8 
1EB1 
1E82 
1E83 
1684 
1E87 
1E88 
1689 
1EBA 
1EBB 
1EBC 
1E8D 
1E98 
1693 
1EI6 
1697 
1698 
1E9B 
1EIC 
1E9F 
1EAB 


CA 61 1B 
CD 46 IE 
2B 

D7 

ca 

5 

2A Bi 78 
7D 

93 

SF 

7c 

JA 

57 

DA 7A 19 
2A F9 78 
a1 28 0 
© 

DF 

D2 7A 19 


C3 6l 1B 


ADD 
ADD 
ADD 
POP 
SUB 
LD 
LD 
ADD 
EX 
POP 
JR 


EÀ 
D,8 
HL, DE 
DE, HL 
HL 
1E5EH 


j *4 

i *5 

; + 18 

Zeichen wieder laden 
‚Zonenteil entfernen 
sin DE übertragen 


sauf 1ß#Zahl addieren 
Zahl in DE übertragen 
‚Stringzeiger laden 
nächste Ziffer 


FERHEGE EAE BE AE HE IE AE AE EE HEIE FE EAEE FE AE FE AEAEE AEE EFE EEEE EEE 


CLEAR - Anweisung 
Variable löschen und Stringbereich definieren 


JP 
CALL 
DEC 
RST 
RET 
PUSH 
LD 
LD 
SUB 
LD 
LD 
SBC 
LD 
JP 
LD 
LD 
ADD 
RST 
JP 
EX 
LD 
POP 
JP 


Z,1B6iH 
1E46H 

HL 

18H 

NZ 

HL 

HL, (7881H) 
ÀL 

E 

EsA 

AH 

AD 

D,A 

C: 197AH 
HL, {78F7H) 
BC, 40 

HL, BC 

18H 

NC, 197AH 
DE, HL 
(7840H), HL 
HL 

1861H 


keine Parameter? Sprung in NEW 
Ausdruck auswerten 
;Programmzeiger - 1 

‚nächstes Zeichen adressieren 
Anweisungsende? nein, Fehler 
‚Programmzeiger auf Stack 
sBASIC-RAM Endadresse laden 

;- Argument der CLEAR-Anweisung 
j= Start des String-Bereichs - 1 


sUnterlauf, (UT OF MEMORY - Error 
‚Startadr. der Variablen-Tabelle 
it 64 


$< neue Stringbereichs-Adresse - 1? 
snein, (UT OF MEMORY - Error 

‚neue Stringbereichs-Startadr - 1 
‚abspeichern 

ıProgrammzeiger laden 

weiter bei NEW 


RHEIN ER 


RUN - Anweisung 
Programm starten 
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1EA3 
1EA6 
1EA9 
1EAC 
IEAF 


tEBi 
tEB3 
1EB6 
iEB7 
1EB8 
1EB9 
1EBC 
tEBD 


1£C0 
ECI 


1ECZ 
1EC5 
1EC8 
1EC9 
1ECC 
1ECD 
1ECE 
1ECF 


1ED2 


1ED5 


1ED7 
1ED8 


CA 5D iB 
cD C7 79 
CD 6i 1B 
Bi iE ID 
18 18 


2A A2 78 
E3 

JE N 

F5 

33 

c5 


CD 5A 1E 


“cD 07 iF 


£5 
2A A2 78 
DF 
El 
23 
DC 2F 18B 


D4 2C 1B 


68 
69 
2B 
DB 


JP Z, 1B5DH ;keine Zeilennummer? weiter bei NEW 
CALL  79C7H ;RAM-Erweiterungsausgang 

CALL  1B6iH ‚Variable löschen 

LD BC,IDIEH ;Rucksprungadresse laden 

JR tECIH weiter bei GOTO 


IRRE 


GOSUB - Anweisung 
Unterprograms aufrufen 


LD 643 ‚testen, ob noch & Bytes frei sind 
CALL 1963H 

POP BRC ;Rucksprungadresse löschen 

PUSH HL ;Programmzeig. fur RETURN auf Stack 
PUSH HL ‚Programmzeiger nachmals auf Stack 
LD HL, (7842H) imit aktueller Zeilennummer 

EX (5P) HL ;vertauschen 

LD A, 91H 1 als Flag für GOSUR 

PUSH AF sauf den Stack 

INC SP ıL5B entfernen 

PUSH BC Rucksprungadr. wieder auf Stack 


FEE EHE AE FEAE HEE FE FE AE HE FEAE EdE AE FE FEE AEE IE IEE FE E EE EE EEEE 


GOTO - Anweisung 
unbedingter Sprung 


CALL  1E5AH iSprung-Zeilennummer ermitteln 

CALL  1FøØ7H Ende der Zeile suchen 

PUSH HL ‚Programmzeiger auf Stack 

iD HL, {78A2H) saktuelle Zeilennummer in HL 

RST 18H ;= Sprung < Zeilennummer ? 

POP KL iProgrammzeiger laden 

INC HL sauf Anfang der nächsten Zeile 

CALL — €,iB2FH iJa, Sprungzeile von dieser Zeile 
san suchen 

CALL  NC,1B2CH ‚nein, Sprungzeile vom Programa- 
sanfang an suchen 

LD HB Adresse der Sprungzeile in HL 

LD L,C 

DEC HL ;Programmzeiger vor Sprungzeile 

RET £ ¿Zeile vorhanden? ja, dort weiter 


FERIE IIE AE IEE IEEE EEE E EAE AEE AEAEE EEEE E 
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1ED9 
1EDR 


1EDE 


1EE1 
1EE4 
1EE5 
1EEB 
1EEA 
1EEC 
1EEF 
1EFO 
EF3 
1EF4 
1EF5 
1EF6 
1EFB 
1EFB 
IEFC 
EFF 
1F@2 
1FØ3 


1F84 


1F05 
1F08 


1F07 


IE BE 
(3 A2 19 


16 FF 
CD 36 19 


22 E8 78 
FE 91 
iE 84 
C2 A2 19 


22 A2 78 
23 

TC 

B3 

28 07 

3A DD 78 


(2 18 1A 
21 IE 1D 
E3 


01 3A BE 


BE oa 


UNDEFINED STATEMENT - Error 


LD 
JP 


E, BEH 
19A2H 


Fehlercode in E 
Fehlermeldung ausgeben 


EEHEHE JEE IE IE FE E AE FE AE FE FEAE EAE HE FE FE FE FEE AEE AEAEE E AE AE AE FE EE EE 


RETURN - Anweisung 
Rücksprung von einem Unterprogramm 


RET NZ ‚Parameter? ja, Fehler 

LD D,BFFH ‚Daten vom Stack zurückholen 
CALL 1936H s(FOR - Daten dabei übergehen) 
LD SP,HL ‚Stack neu initialisieren 

LD {78E8H), HL 

CP 91H ‚Daten von einem 60SUB-Aufruf? 
LD E,4 Code für RETURN WITHOUT GOSUB Err. 
JP NZ, 19A2H ‚nein, Fehlermeldung ausgeben 
POP HL ‚Zeilennumser vor Stack laden 
LD {78A2H) , HL sals aktuelle Zeilennummer speich. 
INC HL ;Direkt - Mode ? 

LD AH st=FFFF) 

OR L 

JR NZ, 1EFFH jnein! 

LD A, (78DDH) ;RESUME/RETURN-Flag gesetzt ? 
OR À 

JP NZ, 1A18H 1Ja, zurück zur Hauptschleife 
LD HL, IDIEH ;Rucksprungadresse laden 

EX {SP}, HL mit Programmzeiger tauschen 
DEFB 3EH ıLD A,BEIH Dumay-Befehl 

POP HL \Programszeiger laden 


4 


FEE IEEE AEAEE AEE FE EEE AEAEE AE EAEE AEE AE AE EEEE E EHHE NE 


DATA - Anweisung 
Ende der Anweisung suchen 


LD 
NOP 


BC, BEZAK 


ıTrennzeicheni = ’’ int 


EIEII EIE EAE AE FE FEAE FEAE FE AE EAE E-E AEE E AEAEE E E E EEEE 


ELSE - Anweisung 
Zeilenende suchen 


LD 


C8 
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;Trennzeichen!i = BR in C 
‚Achtung: 1F87-1FB8 redefiniert 


1F09 
1FØB 
IFBC 
1FØD 
FRE 
1FOF 
iFið 
IF 
1F12 
1F13 
iFl4 
IF16 


1F18 
1F1A 
iFiC 


1F1D 
iF1E 
IFIF 


iF2i 
1F24 
1F25 
1F26 
1F27 
1F2A 
1F2B 
IFZC 
iF2D 
IFZE 
IF3i 
iF32 


IF33 
1F35 


1F38 
1F3B 
IF3C 


26 08 
79 
48 
47 
TE 
B? 
c8 
Ba 
cS 
23 
FE 22 
28 F3 


D6 BF 
28 F2 


37 
18 ED 


CD OD 26 
CF 
D5 
EB 
22 DF 78 
EB 
D5 
E7 
F5 
cD 37 23 
Fi 
EJ 


Ch B3 
CD 19 28 


CD 83 BA 
E3 
28 28 


LD 
LD 
iD 
iD 
LD 
OR 
RET 
CP 
RET 
INC 
CP 
JR 


SUR 
JR 
CP 


ADC 
LD 
JR 


B,8 
Art 

C E 
BA 

Ay (HL) 
A 

Z 

R 

Z 

HL 


THI 


Z,1FRBH 


8FH 
NZ, IFBEH 
R 


ÀD 
D,A 
1FBEH 


‚irennzeichen? = BB in B 
Trennzeichen 1 und ? tauschen 


Zeichen laden 

= Zeilenende ? 

sda, fertig 

i= Trennzeichenż ? 

Ja, fertig 

‚Programmzeiger + i 

+= Anführungszeichen ? 

‚Ja, Trennzeichen tauschen 
sid.h. nur noch Zeilenende suchen) 
HIF - Token? 

‚nein, weiter 

‚wenn nicht im String oder nach 
;ELSE, Carry = | setzen 
Verschachtelungszähler + i 


weiter 


RATEN 


LET - Anweisung 


Wertzuweisung 
CALL  260DH 
RST 8 

DEFE ’=’ 

EX DE, HL 

LD {(78DFH), HL 
EX DE, HL 
PUSH DE 

RST 28H 

PUSK AF 

CALL 2337H 
POP AF 

EX {SP}, HL 
ADD Ayd 

CALL 2819H 
CALL . BAGSH 
PUSH HL 

JR NZ, iF66H 
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‚Variable in Tabelle suchen 
‚Folgt das Zeichen ’=’ ? 


‚Adresse der Variablen-Tabelle 
fur Variable merken 


sund auf den Stack packen 

ıTyp testen 

‚Typ-Flag auf Stack 

Ausdruck auswerten 

‚Typ-Flag laden 

‚Programmzeiger auf Stack 
Adresse in Variablen-Tabelle laden 
TypCode errechnen 

Ergebnis des Ausdrucks in 
richtigen Typ umwandeln 
sX-Adresse in DE 

Adr.der Variablen-Tab. auf Stack 
Sprung, wenn nicht String 


IF3E 
iF41 
1F42 
1F43 
1F44 
1F45 
1F46 


1F49 
1FAA 
1F4C 
1F4F 
1F58 
1F51 
1F53 
1F56 
1F57 
1F59 
155A 
1F58 
iF5E 
1F5F 
1F62 
1F65 


iFb6 
1F69 
1F6A 
iFöB 


1F6C 
1F6E 


1F78 
1F71 
1F72 
1F73 


2A 2179 
E5 
23 
5E 
23 
36 
2A A4 78 


DF 

30 8E 

2A AB 78 
DF 

Di 

3a Br 

zA F9 78 
DF 

3 09 

JE 

DI 

cD F5 29 
EB 

CD 43 28 
cD F5 29 
E3 


cD D3 09 
Di 
El 
(r 


FE 9E 
28 25 


D7 
CF 
8D 
CD 5A 1E 


Stringzuweisung 


LD 
PUSH 
INC 
LD 
INC 
LD 
LD 


RST 
JR 
LD 
RST 
POP 
JR 
LD 
RST 
JR 
DEFB 
POP 
CALL 
EX 
CALL 
CALL 
EX 


CALL 
POP 
POP 
RET 


HL, (7921H) 
HL 

HL 

Es (HL) 

HL 

D, (HL) 
HL, (7BA4H) 


18H 

NC, IF5AH 
HL, (78ABH) 
18H 

DE 

NC, 1F62H 
HL, {78F9H) 
18H 

NC, 1F62H 
JEH 

DE 

29F5H 

DE, HL 
2843H 
29F5H 
(SP), HL 


09D3H 
DE 
HL 


;Stringzeiger aus X-Reg laden 
sund auf Stack 

‚Stringadresse laden 

sin DE 


String nicht im Programmtext oder 
sim Stringbereich ? 


ia, String in Stringbereich 
‚String im Programmtext? 


‚Stringzeiger laden 
sja, String nicht in Stringbereich! 
jzeigt Stringzeiger auf Var. Tab.? 


jnein, String nicht im Stringber. 
;LD A,GDIH Dummy-Befehl 
iStringzeiger laden 

String im Zwischenspeicher löschen 
‚Stringzeiger in HL 

‚String in Stringbereich übertragen 
‚String im Zwischenspeicher löschen 
sZeiger auf Zwischenspeicher auf 
‚Stack, Var. Tab.-Adresse laden 
jWert von X in Variablen-Tabelle 
‚Stack bereinigen 

;Programmzeiger laden 


KREI A HEEE A AE AEE E EAE FE FEE EAE FEE EE 1E AE AE E E EEE E E E d 


ON - Anweisung 
Verzweigung anhand einer Sprungleiste 


cP JEH 

JR NZ, 1F95H 
ON ERROR 

RST 18H 

RST 8 

DEFE BDH 
CALL 


1E5AH 
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sfolgt ein ERRÖR-Token 7 
jnein! 


inächstes Zeichen adressieren 
jist es ein GOTO-Token? 

st8D = G0T0-Token) 
ıZeilennunser dekodieren 


1F76 
1F77 
1F78 
1F7A 
1F7D 
1F7E 
1F7F 
iF88 


1F83 
1F84 
1F87 
1F88 
1F89 
IFBc 
1F8D 
iFBE 
1F91 
1F92 


1F95 


1F98 
1F99 
1F9A 
IF%C 
IFIE 
IFIF 
IFAB 
1FAL 
' 1FA2 
1FA3 
IFA4 
1FA7 
1FAA 
IFAC 


1FAD 


TA 

B3 

28 09 

CD 2A 1B 
58 

39 

El 

D2 D9 IE 


EB 
22 FO 78 
EB 
D8 
JA F2 78 
87 
c8 
JA 9A 78 
5F 
(3 AB 19 


CD tC 28 


TE 

47 

FE 91 

28 83 
CF 

BD 

2B 

4B 

aD 

78 

CA 60 1D 
CD 58 IE 
FE 2¢ 


18 F3 


LD ÅD 

OR E 

JR Z,1F83H 
CALL  1B2AH 

LD D, B 

LD EC 

POP HL 

JP NC, 1ED9H 
EX DE, KL 

LD {78FBH), HL 
EX DE, HL 
RET c 

LD A, {78F2H) 
OR À 

RET Z 

LD Ar 1789AH) 
LD EA 

JP 19ABH 

ON GOTO - ON GOSUB 
CALL  2BiCH 

LD As (HL) 

LD BsA 

CP 91H 

JR Zy IFAIH 
RST 8 

DEFB  8DH 

DEC HL 

LD GE 

DEC £ 

LD ÀB 

JP Z, 1D60H 
CALL  {ESBH 

cP ? i ? 

RET NZ 

JR 1FA2H 


;= 9? 

‚(Fehlerbehandlung ausschalten) 
ija! 

Zeile im Programmtext suchen 
leilenadresse in DE 


;Programmzeiger laden 

Zeile nicht vorhanden! 
sUNDEFINED STATEMENT - Error 
Adresse der Fehlerroutine 
‚abspeichern 


sZeilen-Nr > B, fertig! 
schon ein Fehler aufgetreten? 


nein, fertig 
‚Fehlercode in E 


izur Fehlerbehandlung 


Ausdruck auswerten, Ganzzahliger 
iWert (< 256) in E 

Zeichen aus Programstext laden 
iin B 

$= G05UB - Token ? 

ija! 

jist es ein G60TO - Token ? 

1(8D = 60T0-Token) 
iProgrammzeiger - 1 
;Sprungvariable in C 

Wariable - 1 =8? 

Token in A f. Sprungausführung 
Ja, Sprung m. n. Zeilen-Nr ausführ 
Zeilennummer dekodieren 

folgt ein Komma ? 

‚nein, Programs mit der nächsten 
Anweisung fortsetzen 

nächste Zeilennumser 


RR AE AE AEAEE AEAEE EE EE 


RESUME - Anweisung 
Rucksprung von der Fehlerbehandlung 
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IFAF 
1F82 
1FB3 
1FB4 
1F87 
1F88 
1FB8 
IFRC 
1FBD 
1FBF 
1FC1 
1FC4 
1Fc5 
IFCh 
1FC7 
1FCA 
1FCB 


IFCD 
IFCE 
IFCF 
1FD2 
1FD3 
1FD6 
1FD9 
1FDA 
1FDB 
IFDC 
1FDD 
1FDF 
IFEB 
1FE1 
1FE2 
1FE3 
IFE% 
IFES 
1FEb 
1FE7 
1FEĄA 
1FED 
IFEE 
1FFi 


1i F2 78 
1A 

B7 

CA AB 19 
3C 

32 9A 78 
12 

7E 

FE 87 

28 0c 

cD 5A 1E 
ca 

7A 

BJ 

c2 (5 1E 
3C 

18 82 


D7 

co 

2A EE 78 
EB 

2A EA 78 
22 A2 78 
EB 

cB 

7E 

B7 

20 84 
23 

23 

23 

23 

23 

7A 

Ad 

3c 

208 if 
JA DD 78 
3D 

CA BE iD 
c3 05 1F 


LD DE, 7BF2H 
LD A, (DE) 
OR Â 

JP Z, 19A0H 
INC À 

LD {7B9AH) A 
LD (DE); A 
LD Ar (HL) 
cP 87H 

JR Z, IFCDH 
CALL  1E5AH 
RET NZ 

LD ÅD 

OR E 

JP NZ, 1EC5H 
INC A 

JR 1FCFH 
RESUME NEXT 

RST 18H 

RET NZ 

LD HL, (78EEH) 
EX DE, HL 


LD HL, (78EAH) 
LD {(78A2H) HL 


EX DEIHL 
RET MZ 

LD ArtHL) 
OR A 

JR NZYIFESH 
INC HL 

INC HL 

INC Hl 

INC HL 

INC HL 

LD AD 

AND E 

INC A 

JP NZ,1F@5H 
LD A, (78DDH) 
DEC A 

JP 2,1DBEH 
JP 1FØSH 
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iTRAP-Flag adressieren 
Fehler aufgetreten ? 


‚nein, RESUME WITHOUT ERROR 
A= 

Fehlercode löschen 
ıTRAP-Flag löschen 

;Zeichen laden 

;= NEXT-Token ? 

Ja! RESUME NEXT 
Zeilennumser dekodieren 
‚weitere Zeichen? ja-fehler 
;Zeilennummer = 8 ? 


‚nein, bei G0TÜ fortsetzen 
A=ıi 


;nachstes Zeichen im Programmtext 
;kein Zeilenende, Fehler 

Zeiger auf fehlerhafte Zeile 

sin DE 

;Fehler-Zeilennummer laden 

‚als aktuelle Zeilennummer eintrag. 
Zeiger wieder in HL 

‚RESUME 9? ja-fertig 

Zeilenende? 


‚nein, nächste Anweisung in Zeile 
;Programszeiger auf 1. Anweisung 

ıder nächsten Zeile 

sthinter Zeiger und Zeilennumser ) 


ıDirekt-Mode ? 
stZeilennummer = FFFF) 


‚nein, nächste Anweisung, fertig 
;RETURN/RESUME-Flag gesetzt? 


iJa, Prorammausführung beenden. 
‚nächste Anweisung suchen, fertig 


IFFA 


1FF7 
iFF8 
iFF9 
AFFE 
1FFD 
1FFE 
FFF 
2801 


2003 
2005 


2008 
2008 
200c 
ZUBE 
2811 
2812 


2813 
2815 
2816 
2817 
2018 
2819 
zuit 
281D 
AUF 
2022 
2025 
2026 


cD 1C 2B 


cO 

B7 

CA AA 1E 
3D 

87 

F 

FE 2D 
38 82 


1E 26 
C3 A2 19 


11 8A 38 


28 17 
cD 4F 1E 
ER 

E3 


28 ii 

EB 

CF 

2C 

EB 

2A E4 78 
EB 

28 86 

CD 54A 1E 
c2 97 19 
EB 

Te 


RR 


ERROR - Anweisung 
erzeugt angegebenen Fehler 


CALL 


REF 
OR 
JP 
DEC 
ADD 
LD 
cP 
JR 


¿RICH 


NZ 

À 

Z, 1EAAH 
A 

AA 

EA 

ZDH 

C, 2005H 


Fehlercode analysieren 

‚Wert (4256) in A 

weitere Zeichen? ja-Fehler 
‚Fehlercode = 8 ? 

iJa, FUNCTION CODE - Error 
‚Internen Fehlercode ermitteln 


jund in E ablegen . 
1< 20? 
jja! 


ui 2 ass 2 0 22 2 2 2 2 2 2 2 2 2 22 5 2 2 2 2 2 22 2 2 2.2 E 


UNPRINTABLE ERRÜR 


LD 
JP 


E, 26H 
1942H 


Fehlercode in E 
izur Fehler-Routine 


FEIER AEE AE 1E FE d FE AEA AE HE dE FE WAE IEE FE E FE E WAE AE FEE AE FE EE AEE E 


AUTO - Anweisung 
Automatische Zeilennummerierung 


LD 
PUSH 
JR 
CALL 
EX 
EX 


JR 
EX 
RST 
DEFB 
EX 
LD 
EX 
JR 
CALL 
JP 
EX 
LD 


DE, 10 
DE 

Z, 2025H 
1E4FH 
DE, HL 
(5P) HL 


2, 2026H 
DE, HL 
8 


? 9 
? 


DE, HL 

HL, (78E4H) 
DE, HL 

Z, 2025H 
1E5AH 

NZ, 1997H 
DE, HL 

ÂH 
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sAnfangs- und Erhöhungswert = 18 
sauf den Stack 

‚keine weiteren Zeichen eingegeben! 
sAnfangswert dekodieren 
Anfangswert in HL, Prog-zeiger DE 
‚Anfangswert auf den Stack 

‚18 als Erhöhungswert in HL 

‚keine weiteren Zeichen eingegeben’! 
;Programmzeiger in HL 

folgt ein Komma ? 


;Programmzeiger wieder in DE 

salten Erhöhungswert laden 
;Programmzeiger in HL 

ıkeine weiteren Zeichen nach Komma! 
jErhöhungswert dekodieren 
Zeilenende? nein-SYNTAX ERROR 
jErhöhungswert in HL 

8? 


2827 
2028 
2828 
202E 
2031 
2832 
2035 
2836 


20839 
2831 
2030 
2U3F 
2842 
2044 
2847 
2048 
2849 
204C 
2840 


ZBar 
2058 
2853 


2856 
2038 


2058 
285C 
205D 
205E 
2068 
2862 


2063 
2865 


B5 
CA AA IE 
22 EA 78 
32 Ei 78 
Ei 
2 
Cl 
C3 33 1A 


CD 37 23 
TE 

FE 2C 
cC 78 1D 
FE CA 

CC 78 1D 
2B 

E5 

CD 94 09 
El 

28 87 


D7 
DA CZ 1E 
63 5F iD 


16 81 
CD B5 1F 


B7 
(8 
D7 
FE 9 
20 Fé 
15 


20 F3 
18 E8 


ÜR 
JP 
LD 
LD 
POP 
LD 
POP 
JP 


L 

Z, 1E4AH 
{TBEAH) HL 
(BEIN) JA 
HL 

(T7BEZH) HL 
BC 

1A33H 


tJa, FUNCTION CODE - Error 
;Erhöhungswert speichern 

‚AUTO - Flag setzen 

Anfangswert laden 

und abspeichern 
;Rucksprungadresse vom Stack holen 
‚zur Hauptschleife 


EEEH ER IEE EHEAR AEE HAEE E AE EAE EREE AEE EE EEE 


IF - Anweisung 
Bedingungs-Abfrage 


CALL 
LD 
cp 
CALL 
cP 
CALL 
DEC 
PUSH 
CALL 
POP 
JR 


THEN 
RST 
JP 
JP 


ELSE 
LD 
CALL 


OR 
RET 
RST 
CP 
JR 
DEC 


JR 
JR 


2337H 

A: (HL) 
' 

Z, 1078H 

BCAH 

2, 1D78H 

HL 

HL 

0994H 

HL 

Z, 2056H 


18H 
Cr 1EC2H 
1D5FH 


D1 
1F05H 


A 

Z 

18H 

95H 

NZ, 2058H 
D 


NZ, 2058H 
ZB4FH 


‚Bedingungsausdruck auswerten 
Zeichen laden 

1= Komma ?7 

Ja, nächstes Zeichen 

i= THEN - Token ? 

ija, nächstes Zeichen 
‚Programmzeiger - 1 

sund auf den Stack 

Ergebnis = 8 ? (nicht erfüllt!) 
;Programmzeiger wieder laden 
Ja, zur ELSE - Ausführung 


‚nachstes Zeichen 
‚Ziffer? ja-Sprung ausführen 
‚nein, Aachste Anweisung aust. 


‚Verschachtelungszähler = į 
‚nächste Anweisung suchen, 
‚wenn IF, Versch.zähler + 1 
Zeilenende? 

fertig, kein ELSE 
‚nächstes Zeichen 

i= ELSE - Token? 

nein, weiter suchen 
richtiges ELSE ? 
;tVerschachtelungs-Zähler - I = 9) 
‚nein, weiter suchen 

iJa, weiter wie THEN 


2867 
2867 
2B6C 


JE Ai 
32% 78 
63 98 20 


CD CA 79 
FE 48 
28 19 


CD 81 2B 


FE 02 

DZ 4A IE 
E3 

21 02 70 
19 

22 28 78 
TB 

E6 IF 

32 Ab 78 
El 

CF 

z£ 

FE 23 

20 88 

CD 58 3B 
JE 88 

32 9C 78 
2B 

D7 

CC FE 28 
CA 69 21 
FE BF 

CA BD 2C 
FE BC 

CA 37 21 
E5 


RR 


LPRINT - Anwersung 
Ausgabe auf dem Drucker 


iD Ari Ausgabe-Flag = Drucker 
LD (789CHI A 
JF 209BH ‚weiter bei PRINT 


EERREKEERRERRKEEREEEREEEEEEREEEEEEEEE 


PRINT - Anweisung 
Ausgabe auf dem Bildschirm 


CALL  7Ọ9CAH ;RAM-Erweiterungsausgang 
CP P SPRINT a ? 
JR NZ, 208FH jnein! 
CALL  ZBOIH ;Positionsausdruck auswerten 
‚Wert (<32768) in DE, MSB in A 
CP 2 ‚Position > 5il ? 
JP NC, LEAH Ja, FUNCTION CODE - Error 
PUSH HL ‚Programmzeiger auf Stack 
LD HL, 7ØBBH sBildschirm-Startadresse laden 
ADD HL, DE ‚Position dazu addieren 
LD (78204), HL sals neue (ursoradresse speichern 
LD Å; E Position des Cursors in Zeile erm, 
AND 1FH ı= 5 letzten Bits d. Cursoradresse 
LD {7BAbH) A jals neue Cursorposition speichern 
POP HL ‚Programmzeiger laden 
RST 8 ‚folgt ein Komma? 
DEFB ’,’ 
CP r ıKassettenausgabe ? 
JR NZ, 209BH jnein, weiter 
CALL  3B58H Vorspann auf Kassette schreiben 
LD Å, BOH sAusgabe-F lag auf Kassette 
LD {789CH),A 
DEC HL ‚Programmzeiger - 1 
RST 10H ‚nächstes Zeichen. Anweisungsende? 
CALL  Z,2BFEH iJa, CR ausgeben 
JP 2, 2169H sund fertig 
CP BFH i= USING - Token 7 
JP 2, 2CBDH ija, formatierte Ausgabe 
cP BBCH ı= TAB - Token ? 
JP 2, 2137H jja! 
PUSH HL iProgrammzeiger auf Stack 
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2BAE 
2080 
2083 
28B5 


FE 2C 
CA 08 21 
FE 3B 
CA AC 3B 


ci 
CD 37 23 
E5 

E7 

28 32 

cD BD OF 
CD 65 28 
cD cD 79 
2A 21 79 
3A 9C 78 
87 

FA E9 20 
28 08 

JA 9B 78 
B6 

FE 84 

18 09 

3A 9D 78 


47 

JA Ab 78 
86 

B8 

DA FE 28 
CD AA 28 
JE 20 

CD 2A 83 
B7 

CC AA 28 
Ei 

C3 9B 28 


cD iC 3B 
E7 


JE ðD 


‚Komma ? 

ıJas zur nächsten TAR-Position 
;Semikolon ? 

warten, bis alle Zeichen ausgegeb, 
‚Fortsetzung bei 2164H 
;Programmzeiger laden 

‚Ausdruck auswerten 
iProgrammzeiger auf Stack 
Datentyp testen 

‚String 7 ja, Sprung 

‚num. Werte in String umwandeln 
‚String in Zwischenspeicher und X 
ıRAM-Erweiterungsausgang 
‚Stringzeiger aus X laden 
Ausgabe-Flag laden 

‚und testen 

‚Kassette? ja-keine Formatierung 
Bildschirm? ja-Sprung 
;Druckkopf-Position laden 

$t Stringlänge 

i> Zeilenlänge (132) ? 

‚weiter bei 2BE6H 
;Bildschirm-Zeilenlänge laden 
{wird mit 64 initialisiert.) 
jin B 

Cursorposition in Zeile laden 
»+ Stringlänge 

ı* Zeilenlänge (64) ? 

Ja, Carriage Return ausgeben 
String ausgeben 

‚danach ein Leerzeichen 


»2=B, damit wird n. Befehl überspr. 
‚String ausdrucken 

Programmzeiger laden 

weiter! 


Prufen, ob Cursor am Zeilenanfang steht 


cp 1, 
JF Z,2108H 
cp 13 

JP 2, 3BOCH 
POP RC 

CALL 2337H 
PUSH HL 

RST 20H 

JR 2, 20F2H 
CALL  BFBDH 
CALL 2665H 
CALL  79CDH 

LD His (7921H) 
LD Às (789CH) 
OR A 

JP M, 20E9H 
JR 2, 28DDH 
LD A, (7B9BH) 
ADD As (HL) 

cP 84H 

JR ZBE6H 

LD As (789DH) 
LD B,A 

LD Às (7BA6H) 
ADD  A,{HL) 

cP B 

CALL NC, 20FEH 
CALL  28AAH 

LD Ay’ ’ 
CALL  @32AH 

OR À 

CALL  Z,2BAAH 
POP HL 

JP Z09BH 
CALL  3BICH 

OR A 

RET Z 


iCursorposition laden 
38? 
1Ja, zurück 


Carriage-Return ausgeben 


LD 


A, BDH 
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sCR-Code laden 


2108 
2183 
2186 
2187 


2108 
2108 
210E 
210F 
2112 
2114 
2117 
2119 
2118 
2HE 
2128 
2123 
2126 
2127 
212A 
2128 
212E 
2130 
2132 
2134 
2135 


2137 


213A 
2130 
213D 
213E 
213F 
2148 
2141 
2144 
2147 
2148 
214B 
214E 
2151 


CD 2A 83 
cD D8 79 
AF 
c9 


cD D3 79 
JA 9C 78 
B7 

FZ 19 21 
JE 2C 

CD ZA 83 
18 4B 

28 BB 

JA 9B 78 
FE 78 

(3 2B 21 
3A IE 78 
47 

3A AE 7A 
EB 

D4 FE 20 
JB 34 

D6 18 
WFC 

2F 

18 23 


CD 1B 28 


E6 7F 

5F 

CF 

29 

zB 

E5 

cD D3 79 
JA 9C 78 
B7 

FA AA iE 
CA 53 21 
JA 9B 78 
18 83 


CALL IZAH 
CALL  79D0H 
XOR À 

RET 

’,’ auswerten 
CALL  79D3H 

LD À, {7B9CH) 
OR À 

JP P,Z119H 
LD Ar’ 
CALL  B3IZAH 

JR 2164H 

JR Z, 2123H 
LD Ay (789BH) 
CP 70H 

JP Z1ZBH 

LD A, (789EH) 
LD BA 

LD Ay (78A6H) 
CP B 

CALL NC, 20FEH 
JR NG, 2164H 
SUB 16 

JR NC,2138H 
CPL 

JR 215AH 
TAB auswerten 
CALL  ZBIBH 
AND 7FH 

LD E,A 

RST 8 

DEFB °P 

DEC HL 

PUSH HL 

CALL  79D3H 

LD À, (7890H) 
OR A 

JP M, LEAH 
JP 2,21533H 
LD A, (789BH) 
JR 2156H 
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‚und ausgeben 
;RAM-Erweiterungsausgang 
A + Flags rücksetzen 


ıRAM-Erweiterungsausgang 
sAusgabe-Flag laden 

‚Bildschirm oder Drucker ? 

jja: 

‚Komma auf Kassette aufzeichnen 


weiter bei 2164H 

Bildschirm ? ja - Sprung 
‚Kopfposition { letzte Tabposition? 
(= 112) 

weiter bei Z212BH 

‚letzte Tabposition laden {48') 

sin B 

;Cursorposition laden {ungepuffert) 
i< letzte Tabposition ? 

‚nein, Carriage-Return ausgeben 
sund weiter 

‚Cursorposition - 16 bis < @ 


i= Anzahl einzuf. Leerzeichen -1 
Leerzeichen ausgeben 


Ausdruck auswerten 
ıganzz. Wert (256) in A 
‚Bit 7 löschen (max 127) 
yin E 

sfolgt ein ’)’ ? 


‚Programmzeiger - 1 

‚und auf den Stack 
;RAM-Erweiterungsausgang 
Ausgabe-Flag laden 

‚und testen 

Kassette? FUNCTION CODE - Error 
Bildschirm? ja-Sprung 
‚Druckkopfposition laden 

weiter bei Bildschirm 


2153 
2156 
2157 
2158 
215A 
2158 
215C 
215E 
2161 
2162 


2164 
2165 
2166 


2169 
2166 
2178 
2171 
2178 


2178 
217D 


ż17F 
2182 
2183 
2186 
2189 
218A 
2186 
21BF 
2190 
2193 
2196 
2199 


JA Ab 78 
2F 

83 

30 BA 

st 

47 

JE 28 

CD 2A 03 
85 

28 FA 


El 
D7 
63 AB 20 


3A 9C 7B 
20 A ae og 
AF 

32 9C 78 

CD BE 79 


3F 52 45 44 4F 
aD og 


JA DE 78 
B7 

2 9119 
3A A? 78 
B7 

1E 2A 

CA A2 19 
Ci 

2178 21 
CD A7 28 
2A E6 78 
69 


LD 
CPL 
ADD 
JR 
ING 
LD 
LD 
CALL 
DEC 
JR 


A, (78A6H) 


ÀE 

NC, 2164H 
A 

BA 

Ay’ ? 
B32AH 

B 

NZ, 215EH 


‚Cursorposition laden 

jier Komplement bilden 

;+ Tab-Wert 

‚bereits erreicht oder überschr. 
iti 

1= Anzahl einzufügender Leerzeichen 
Leerzeichen ausgeben 


Zähler - 1 
i=0? nein - nächstes Leerzeichen 


Nächsten PRINT - Unterausdruck 


POP HL 

RST 18H 

JP ZBABH 
Endabfrage 

LD A, (789CH) 
DEFE 0,0,0,8 
XOR Å 

LD (789CH) ,A 
CALL  79BEH 


‚Programmzeiger laden 
‚nächstes Zeichen adressieren 
sund zurück 


‚Ausgabe-Flag laden 

;4 x NOP 

‚Ausgabe-Flag auf 
‚Bildschirm setzen 
;RAM-Erweiterungsausgang 


RR FE AE FE AAEE AE HE AEAEE EEEE 


Textdefinition 
DEFM  °7REDO’ 
DEFW  QOODH 


EREI IEEE EE HERE EAE IE AE AE FEA FEA E FE AE AE EAE R AE EEEE 


Fehler beim Einlesen von Daten 


LD 
OR 
JP 
LD 
OR 
LD 
JP 
POP 
LD 
CALL 
LD 
RET 


A, (78DEH) 
A 

NZ, 1991H 
Ay (7BA9M) 
À 

E, 2AH 

Z, 19A2H 
BC 
HL,2178H 
20A7H 

HL, (78E6H) 
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;DATA-Flag gesetzt ? 


»Jas SYNTAX ERROR in DATA-Anweisung 
‚Eingabe von Kassette ? 


Fehlercode in E 

Ja, BAD FILE DATA - Error 
;Tastatureingabe, Pufferzeiger lad. 
Text ’?REDO’ adressıeren 

sund ausgeben 

Aktuellen Prog.zeiger in HL 
‚Eingabe neu beginnen 


219A 


2190 
Z19E 
21Al 
Z1Ad 
Z1A6 
2147 


2149 
21AC 
21AD 
21AF 
Z1B2 
2185 
21B6 
2187 
2189 
21BB 
21BD 
Z1BE 
2108 
2163 
21Ch 
2167 


2109 
21CC 
z1cD 
2iCF 
2108 
21D3 
21D4 
21D5 
2106 
2109 
21DA 


CD 20 28 


TE 

cD DA 79 
Dé 23 

32 A9 78 
TE 

20 28 


cD 68 3B 
E5 

B6 FA 

2A A7 78 
CD 88 3B 
77 

23 

FE 8D 

28 82 

18 F5 

ZB 

3 08 

Ba 20 20 
2A A7 78 
zB 

18 22 


8i DB 21 
c5 

FE 22 

cB 

{D 66 28 
GF 

3B 

E5 

CD AA 28 
Ei 

9 


La Le LE 2 2 22 00 222 2 222 22 02 7 22 725 27% 


INPUT - Anweisung 
Daten einlesen 


CALL 


LD 
CALL 
SUB 
LD 
LD 
JR 


2828H 


Ay (HL) 
79D6H 
1# 


(7BA9H) À 


Ay, (Hi) 


NZ,21C9H 


Einlesen von Kassette 


CALL 
PUSH 
LD 
LD 
CALL 
LD 
INC 
CP 
JR 
DJNZ 
DEC 
LD 
DEFB 
LD 
DEC 
JR 


JB6BH 
Hi 
B, OFAH 


HKL, (78A7H) 


JB88H 
(HL) A 
HL 

BDH 

Z, 21BDH 
Z1B2H 
HL 
(HL),® 
8,8,8 


HL, (78A7H) 


HL 
21EBH 


;Direktbefehl? 

sja, ILLEGAL DIRECT OPERATION 
Zeichen laden 
;RAM-Erweiterungsausgang 

Lesen von Kassette ? 

‚Differenz als INPUT-Flag (@=Kass) 
Zeichen laden 

‚keine Kassette! 


‚Datei auf Kassette suchen 
;Programmzeiger auf Stack 

max. 258 Zeichen 
;Ein-/Ausgabe-Puffer adressieren 
jein Byte lesen 

sin Puffer übertragen 
‚Pufferzeiger + | 

ıSatzende ? 

ija! 

Zähler -i=07 

ıJa,Satzende mit BB kennzeichnen 


ı3 x NOP 

‚Pufferanfang adressieren 
‚Pufferzeiger I Byte vor Anfang 
weiter bei 21EBH 


Einlesen von der Tastatur 
BC,ZiDBH 


LD 
PUSH 
CP 
RET 
CALL 
RST 
DEFB 
PUSH 
CALL 
POP 
RET 


BC 

NZ 
2866H 
8 


7e? 
Y 


HL 
2BAAH 
HL 
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jRucksprungadresse setzen 


mit vorheriger Textausgabe ? 
‚nein, weiter bei Z1DBH 

Text in Zwischenspeicher u. X 
‚folgt ein Semikolon? 


‚Programmzeiger auf den Stack 
Text ausgeben 
‚Programazeiger laden 

‚weiter bei 21DBH 


21DB 
21D 


1DF 
21EB 
21E3 
z1E4 
2165 
21E6 
21E7 
z1EB 
21EB 
21ED 


z1EF 
21FB 
2iF3 


2iF4 


21F5 
zif8 


21F9 


ZiFB 
2iFc 
21FD 


2208 


2201 
2202 
2203 
2205 


2207 
220A 
2208 
220E 


E5 
cD B3 iB 


Cl 

DA BE iD 
23 

TE 

B? 

2B 

c3 

CA B4 iF 
Jb 2C 

18 85 


E5 
2A FF 78 
FA AF 


AF 


32 DE 78 
E3 


18 02 


CF 
2C 


CD BD 26 


E3 


D5 
7E 
FE 2C 
28 26 


JA DE 7B 
B7 

(2 96 22 
JA A9 78 


PUSH 
CALL 


POP 
JP 
INC 
LD 
OR 
DEC 
PUSH 
JP 
LD 
JR 


HL 
1BB3H 


BC 

C, IDBEH 
HL 

As (HL) 
å 

HL 

BC 

Z, IFB4H 


IHL) e’? 


21F4H 


READ - Anweisung 
Daten aus dem Programmtext lesen 


PUSH 
LD 
OR 
XOR 


iD 
EX 


JR 


HL 


HL, (78FFH) 


BAFH 


A 


{78DEH) „A 


(SP), HL 


21FDH 


Nächste Variable 


RST 
DEFR 
CALL 


EX 


PUSH 
LD 
GP 
JR 


Puffer 
LD 
OR 
JP 
LD 


8 


» >» 
? 


26BDH 


(5P), HL 


DE 
As (HL) 


? 2? 


2,222DH 


ieer {kein ’,’) 
A, (78DEH) 


A 


NZ, 2296H 
Ay (78A9H) 
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‚Programmzeiger auf Stack 

7° drucken und eine Zeile in 

‚den Ein-/Ausgabepuffer einlesen 
;Programmzeiger in BC 

sBREAK? ja - Sprung 

Pufferzeiger auf 1. Zeichen 
Zeichen laden 

;Textende 7 

;Pufferzeiger wieder vor I. Zeichen 
;Programmzeiger auf Stack 

‚kein Text, INPUT-Anweis. übergehen 
‚Komma vor erstes Zeichen setzen 
weiter bei 21F4H 


‚Programsmzeiger auf Stack 
DATA - Zeiger in HL 
DATA - Flag setzen 


DATA - Flag löschen 

Achtung: Redefinition von Z1F4H 
DATA - Flag abspeichern 
‚Puffer-/DATA-Zeiger auf Stack 
;Programszeiger laden 

sueiter bei ZIFDH 


sfolgt ein Komma ? 


‚Variable in Var. Tabelle suchen 
Var. Tab. Adresse in DE 
;Programmzeiger auf Stack 
;Pufferzeiger laden 

iVar. Tab. Adresse auf Stack 
Zeichen aus dem Puffer laden 
‚= Komma ? 

iJa; weiter 


;DATA - Flag gesetzt ? 


13a, nächste DATA-Anweisung suchen 
Eingabe von Kassette ? 


= 


I ES bo PO 
NS EIS RS 
SUN MD 
Be: 


2234 
2235 
2236 
2237 
2239 
2238 
223F 
2249 


2243 
2244 
2245 
2248 
2249 
224A 


2240) 


B7 

IE 8b 

CA A2 19 
JE 3F 

CD ZA 03 
CD 83 1B 
Di 

cl 

DA BE 1D 
23 

TE 

B7 

2B 

c5 

CA Ba IF 


D5 


cD DC 79 
E7 

F5 

28 19 


D7 

37 

47 

FE 22 

28 85 

16 3A 
2B 

CD 69 28 


Fi 
EB 
21 5A 22 
E3 
D5 
C3 33 1F 


D7 


Fehlercode in E 
sda, OUT OF DATA - Error 
‚Tastatur: ’?’ ausgeben 


jErneute Eingabe mit ’?? 

Var. Tabellen-Adresse laden 
iProgrammzeiger in BC 

ıBREAK? ja - Sprung 

;Pufferzeiger auf 1. Zeichen 
Zeichen laden 

Zeilenende ? 

;Pufferzeiger vor 1. Zeichen 
‚Programmzeiger auf Stack 

Ja, restliche Eingabe übergehen, 
‚ohne Variablenwerte zu ändern 
‚Var. Tab.-Adresse wieder auf Stack 


ıRAM-Erweiterungsausgang 
Typ der Variablen testen 
}Typ-Flag sichern 
‚numerisch? ja, Sprung 


iPufferzeiger auf nächstes Zeichen 
sals Trennzeichen in D und B 


sAnführungszeichen ? 

idJas ’*” als Trennzeichen benutzen 
jnein ’*’ und ’,’ als Trennzeichen 
Pufferzeiger 1 Byte zurück 
‚String in Zwischenspeicher und X 


Neuen Variablenwert abspeichern 


OR A 

LD E6 

JP Z, 19AZH 
LD Ay’??? 
CALL  BIZAn 
CALL  1BBIH 
Pop DE 

POP BC 

JP 6, 1DBEH 
Inc HL 

LD A (HL) 
OR À 

DEC HL 

PUSH BC 

JP Z, 1FO4H 
PUSH DE 
Eingabe dekodieren 
CALL  79DCH 
RST 20H 

PUSH AF 

JR NZ, 224DH 
String übernehmen 
RST 18H 

LD D,A 

LD BA 

EP Yu? 

JR 2, 2240H 
LD Dype 
DEC HL 

CALL 2869H 
POP AF 

EX DE, HL 
LD HL, 225AH 
EX {SP),HL 
PUSH DE 

JP 1F33H 


Zahl in X übernehmen 


RST 


10H 


iTyp-Flag laden 

;Pufferzeiger in DE 
jRucksprungadresse in HL 

smit Var. Tab.-Adr auf Stack tausch. 
;Pufferzeiger auf Stack 

‚Sprung in LET und dann 225AH 


Nächstes Zeichen adressieren 


224E 
224F 
2558 
2253 
2254 


2257 
225A 
2258 
225C 
275E 
2268 
2263 


2264 
2265 
226b 


2263 
226A 
226F 
2272 
2273 
2274 
2277 
2278 
2278 
2276 
227F 
2282 


2285 


2296 


229A 


Fi 
F3 
Bi 43 22 
(5 
DA 66 BE 


D2 65 &E 
ZB 

D7 

28 85 

FE 2C 

C2 7F 21 
E3 


2B 
D7 
c2 FB 2i 


Di 

00 0 20 BA DB 
JA DE 78 

B7 

EB 

(2 96 1D 


D5 
cD DF 79 
Bb 
21 86 22 
Ch A7 28 
El 
C3 69 21 


JF 45 58 54 
52 41 20 49 
47 4E 4F 52 
45 44 
BD 28 


cD 85 if 
37 
28 12 


POP Ar ;Typ-Flag laden 

PUSH AF ‚und wieder auf Stack 

LD BC, 2243H ;Rucksprungadresse auf Stack 

PUSH BC 

JP C, BEACH Integer und einf.Genauigkeit? 
Ja, String umwandeln, dann 2243H 

JP NC, BE6SH ‚dopp. Genauigkeit ? ume., dann 2243 

DEC HL iPufferzeiger - į 

RST 1BH ‚nächstes Zeichen. BB oder ’:’ ? 

JR 1, 2263H ija, Zeilenende! 

cP E Komma ? 

JP NZ,217FH nein, Fehler 

EX (SP) HL ‚Programmzeiger m. Pufferzeiger 
sauf dem Stack tauschen 

DEC HL iProgrammzeiger -— į 

RST 18H ‚nächstes Zeichen. = Anw.ende? 

JP NZ, 21FBH ‚nein, weiter m. n. Variablen 


keine weiteren Variablen 


POP DE ‚Pufferzeiger in DE 

DEFB 8,2: 8,8,0 ;5 x NOP 

LD A, (78DEH) ;DATA-Flag laden 

OR À ‚gesetzt ? 

EX DE, HL \Pufferzeiger-HL, Progr. zeiger-DE 

JP NZ,1D96H Pufferzeiger als DATA-Zeiger sp. 
;Programmzeiger in HL, fertig 

PUSH DE ;Programmzeiger auf Stack 

CALL  79DFH ‚RAM-Erweiterungsausgang 

OR (HL?) Zeilenende im Puffer ? 

LD HL, 2286H iText *PEXTRA IGNORED? adressieren 

CALL NZ, 2847H ‚nein, Text ausgeben 

POP HL ;Programmzeiger laden 

JP 2169H jAusgabe-Flag auf Bildschirm, fertig 


DEFM EXTRA IGNÖRED’ 


DEFW  OBADH 


Nächste DATA-Anweisung suchen 
CALL  1FOSH ‚Ende der Anweisung suchen 
OR À ;= Zeilenende ? 


JR NZ, 22AEH nein! 
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2286 


2289 


228C 
22 


2262 
2265 
2266 
2209 
22CA 
22CB 
220C 
22CD 
22CE 
22CF 
2208 
2201 


2294 


23 
7E 

23 

B 

IE 86 

CA A219 
23 

5E 

23 

56 

EB 

22 DA 78 
EB 

D7 

FE 88 

20 E3 

C3 2D 22 


11 80 08 


CA BD 26 


z2 DF 78 
CD 36 19 


02 9 1) 
F? 
22 E8 78 
D5 
TE 
23 
F5 
D5 
7E 
23 
87 
FA EA 22 


CD B1 89 


INC 
LD 
INC 
OR 
LD 
JP 
INC 
LD 
INC 
LD 
EX 
LD 
EX 
RST 
cP 
JR 
JP 


HL 

As (HL) 
HL 

{HL} 

E6 

Z, 19A2H 
HL 

Es (HL) 
HL 

D, (HL) 
DE, HKL 
(7BDAH) , HL 
DE, HL 
10H 

BSH 

NZ, 2296H 
222D 


iJa, Programmende 7 
siZeilenzeiger = AB00) 


Fehlercode in E 
1Jas OUT OF DATA - Error 
sleilennummer laden 


nn HL 

sund als DATA-ZNr abspeichern 
sleilenummer wieder in DE 
inächstes Zeichen aus Programmtext 
DATA - Token ? 

nein, weiter suchen 

‚Daten weiter lesen 


EA E AE HE HEEE AE dE AAE E E AAEE E FE dé AE AAE E E E EE 


NEXT - Anweisung 
Wiederholung bei FÖR-NEXT - Schleifen 


LD 


CALL 


LD 
CALL 


JP 
LD 
LD 
PUSH 
LD 
ING 
PUSH 
PUSH 
LD 
ING 
OR 
JP 


DE, 0 
NZ , 26BDH 


(78DFH) HL 
1936H 


NZ, 199DH 
SP,HL 
{78EBH) HL 
DE 

A, (HL) 
HL 

AF 

DE 

As (HL) 
HL 

À 

M, ZZEAH 


iVar. Tab. -Adresse = B setzen 

stfur NEXT ohne Variable) 

jweitere Zeichen 7 ja - Variable 
‚suchen, Var. Tab, -Adresse in DE 
;Programmzeiger speichern 

sim Stack nächste, oder Schleife 
mit richtiger Laufvariablen suchen 
nicht gefunden, NEXT WITHOUT FOR 
‚durch Stackkorrektur alle dazu. 
;verschachtelten Schleifen entfern. 
Var.Tab.-Adr der Laufvar. auf St. 
jErhöhungs-Flag laden 

‚Stackzeiger + 1 

iErhöhungs-Flag auf Stack 
;Var.Tab.-Adresse auf Stack 
;Typ-Flag laden 

ıStackzeiger + | 

‚= einfache Genauigkeit? 

‚nein! - Sprung 


Laufvariable einfacher Genauigkeit 


CALL 


89BIH 


=i 


sErhöhungswert in X 


E3 


E3 

CD 8B 07 
Ei 

CD CR 09 
Ei 

cD C2 09 
E5 

CD BC BA 
18 29 


23 
23 
23 
23 
4E 
23 
46 
23 
E3 


5E 

23 

56 

E5 

69 

68 

CD D2 ØB 
JA AF 78 
FE 04 

CA 52 07 
EB 

El 

72 

2B 

73 

El 

D5 

3E 

23 

56 

23 


EX 


PUSH 
CALL 
POP 
CALL 
POP 
CALL 
PUSH 
CALL 
JR 


(SP), HL 


HL 
B78RH 
HL 
BICRH 
HL 
BICZH 
HL 
BABCH 
2313H 


War. Tab. Adresse laden 
;Stackzeiger auf den Stack 

Var. Tab. Adresse wieder auf Stack 
Laufvariable+Erhöhungswert 

Var. Tab.-Adresse laden 

‚neuen Wert d. Laufvar. speichern 
;Stackzeiger laden 

‚Endwert in Y laden 

‚Stackzeiger auf den Stack 
‚Laufvariable mit Endwert vergl. 
weiter bei 2313H 


Integer als Laufvariable 


ING 
INC 
INC 
INC 
LD 
INC 
LD 
INC 
EX 


LD 
INC 
LD 
PUSH 
LD 
LD 
CALL 
LD 
CP 
JP 
EX 
POP 
LD 
DEC 
LD 
POP 
PUSH 
LD 
ING 
LD 
INC 


FRE 


C (HL) 
B, (HL) 
HL 

(SP) HL 


E 


E, (HL) 
HL 

D, (HL) 
HL 

Lc 
H: B 
BRDZH 
A, {78AFH) 
4 
2,87B2H 
DE, HL 
HL 
{HL),D 
HL 
(HL), E 
HL 

DE 

E, (HL) 
HL 

D, (HL) 
HL 


2 unben, Stackebenen übergehen 


jErhöhungswert in BC 

‚Stackzeiger + | 

(MSB) 

‚Stackzeiger + 1 

‚Stackzeiger auf den Stack 

‚Var. Tab.-Adr. der Laufveriabl. lad 
‚Wert der Laufvariablen laden 


‚Var. Tab.-Adr + 1 auf den Stack 
‚Erhöhungswert in HL 


Laufvar.+Erhöhungswert in HL u. X 
;Typ in X = einf.Genauigk.? 
stuberlauf) 

ija, OVERFLOW - Error 

‚neue Laufvariable in DE 

Var. Tab.-Adr + 1 laden 

sund neuen Wert eintragen 


ıStackzeiger laden 
ineuen Wert der Laufvar. auf Stack 
;Endwert laden 


ıStackzeiger + i 


2318 


2313 
2314 
2315 


2316 


2319 
231 
2316 
z3if 
2320 
2321 


2324 
2325 
2328 
232B 
2326 
232E 
2331 
2332 


2337 
2338 
233A 
233B 
233D 
2348 
2343 
2345 
2349 


E3 
CD 39 9A 


Ei 
i 
% 


cD C2 09 


28 09 

EB 

22 A2 78 
69 

68 

C3 IA iD 


F9 

22 E8 78 
2A DF 78 
TE 

FE 26 

C2 1E 1D 
D7 

CD B9 22 


CF 

28 

2B 

16 88 

D5 

BE Bi 

CD 63 19 
CD IF 24 
22 F3 78 
zA F3 78 
Ci 


EX 


CALL 


POP 
POP 
SUB 


CALL 


JR 
EX 
LD 
LD 
LD 
JP 


(5P) HL 
BASIH 


HL 
BC 
R 


09C2H 


Z, 2324H 
DE, HL 
(78A2H) HL 
LC 

H5 

1D1AH 


Schleife beendet 


LD 
LD 
LD 
LD 
CP 
JP 
RST 
CALL 


SP, HL 
(78EBH),HL 
HL, (78DFH) 
Â (HL) 


37 93 
? 


1D1EH 
10H 
2289H 


‚Stackzeiger auf den Stack 
‚neuen Wert der Laufvariablen laden 
;Laufvariable mit Endwert vergleich 


‚Stackzeiger laden 

‚Erhöhungs-Flag laden 
‚Vergleichsergebnis mit Erhöhungs- 
;Flag verknüpfen 

;Zeilennummer und Anfangszeiger 
sin DE und BC laden 

‚Schleife beendet 7 ja - Sprung 
sZeilennummer in HL 

jals aktuelle ZNr. speichern 
sAnfangszeiger der Schleife in HL 


‚Schleife erneut durchlaufen 


sdurch Stackkorrektur Schleife 

vom Stack entfernen 
Programmzeiger laden 

Zeichen laden 

‚folgt ein Komma ? 

jnein, nächsten Befehl 

‚nächstes Zeichen adressieren 
;nächste äußere Schleife bearbeiten 


RR RER E 


Ausdruck auswerten 


Eing.: HL = Anfangsadresse im Programmtext 


Ausg.: X = Ergebnis 


RST 
DEFB 


DEC 
LD 
PUSH 
LD 
CALL 
CALL 
LD 
LD 
POP 


8 
a 


HL 

D,8 

DE 

Cl 

1963H 
249FH 
(78F3H), HL 
HL, (78F3H) 
BC 
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beginnt der Ausdruck mit einer 
Klammer? nein - SYNTAX ERROR 


ıProgrammzeiger - I 

iPrio-Code d. letzten Operanden = 8 
‚Prio-Code auf den Stack 
mindestens noch 2 Byte frei? 
‚nein, OUT OF MEMORY - Error 
;Operanden analysieren und in X 
‚Programmzeiger speichern 
;Programmzeiger laden 

ıPrio.-Code in B laden 


234A 
234B 
2340 
2344F 
2351 
2353 
2355 
2357 


2358 
2359 
235A 
2358 
235E 
2361 
2362 


23A 


236A 
236D 
236F 
2378 
2372 
2373 
2374 
2377 
2379 
237A 
2370 
2388 
2381 
2382 
2383 
2384 
2385 
2386 
2389 
238A 
2388 
238D 
2398 


TE 

15 08 
DA D4 
3 13 
FE 83 
J30 OF 
FE 81 
17 


37 

DA 97 19 
22 D8 78 
D7 

18 E9 


7A 

B7 

C2 EC 23 
TE 

2208 78 
DS CD 

D8 

FE @7 

8 

SF 

JA AF 78 
D6 03 

B3 

CA BF 29 
21 9A i8 
19 

78 

36 

BA 

Da 

65 

Bi 46 23 
65 

7A 

FE 7F 

CA D4 23 
FE 51 


LD 
LD 
SUB 
JR 
CP 
JR 
CP 
RLA 


XOR 
CP 
LD 
JP 
LD 
RST 
JR 


LD 


JP 
LD 
LD 
SUB 
RET 
cP 
RET 
LD 


SUB 
OR 
JP 
LD 


LD 
LD 
CP 
RET 


LD 


LD 
cP 
JP 
cP 


Ås (KL) 
D8 

D4H 

C, 2364H 
3 

NE, 2364H 
i 


D 

D 

D,A 

C: 1997H 
{78DBH) , HL 
10H 

234DH 


AD 

A 

NZ, 23ECH 
As (HL) 
{78D8H) , HL 
BCDH 

c 

7 

NC 

EA 

A, (7BAFH) 
J 

E 

2, 298FH 
HL, 189AH 
HL, DE 
AB 

D, (HL) 

D 

NC 

BC 

BC, 2346H 
BC 

AD 

TFH 

2, 23D4H 
SIH 
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nächstes Zeichen aus Programm 
‚Operator-Code = 8 setzen 
‚Vergleichsoperator ? { >) =<) 
snein! 

(Token D4, D5 und D6) 

‚nein! 

ifur °>? Carry setzen 

si Bit links schieben 
t>-1,=2-2,X-M 
entspr, Bit im Öperator-Code setz. 
war vorher schon gesetzt ? 
(d.h. der gleiche Operator 2x) 
‚Ja - SYNTAX ERROR 
;Programazeiger speichern 
nächstes Zeichen laden 

und untersuchen 


‚Öperator-Code > 8 ? 
;tVergleichsoperator gefunden) 
jja! 

;Zeichen laden 

ıProgrammzeiger speichern 

jeiner der anderen Operatoren ? 
+82 / 8 AND OR ? 


‚nein! 
söperator-Code in E 
‚Ist in X ein String ? 


‚und ’+’ - Operator? 

1Ja, Stringverknupfung 

Tabelle der Prio.-Codes adress. 
;+ Öperatorcode 

letzte Priorität in A 

neue Prio. aus Tabelle in D 
‚letzte Prio. >= neue Prio, ? 
ija, letzte Operation ausführen 
‚nein, letzte Prio. auf Stack 
Adr. f. n. Operanden auf Stack 


Neue Priorität ın A 
ı= 7FH (Operator = ##) ? 
ija, weiter bei 23D4H 
;üperator = AND oder OR? 


2392 


2395 
2398 
2399 
23% 
239D 
239E 
2239F 
¿3A2 
23A3 
23A4 
23A5 
ZUb 
2349 
23AA 
23AB 
23At 
23AD 
Z3AE 
Z3AF 
23B8 
2383 
2384 
2385 
2387 
238A 
Z3BB 
23Bt 
23BD 
23BE 
23BF 
2308 
2301 
2302 
2363 


2304 
2305 
23067 
2308 
2309 
2A 


DA EI 23 


212179 
B7 

JA AF 78 
3D 

3D 

3D 

CA Fó BA 
4E 

23 

46 

65 

FA (5 23 
23 

4E 

23 

46 

(5 

F5 

B7 

E2 Ch 23 
Fi 

23 

38 83 

21 1D 79 


FAENA EDNA 


4B 
47 


Bi 86 24 


JP 


C, ZJEIH 


iJa, weiter bei Z3EIH 


Öperanden für +, -, * und / auf den Stack 


LD 
ÜR 
LD 
DEC 
DEC 
DEC 
JP 
LD 
INC 
LD 
PUSH 
JP 
INC 
LD 
INC 
LD 
PUSH 
PUSH 
OR 
JP 
POP 
INC 
JR 
LD 
LD 
INC 
LD 
INC 
PUSH 
LD 
INC 
LD 
PUSH 
DEFB 


POP 
ADD 
LD 
LD 


LD 


HL, 7921H 
À 

Às (78AFH) 
À 

À 

À 

2, BAFAH 
C, HL) 
HL 

B, (HL) 
BC 

M, 23C5H 
HL 

Cs (HL) 
HL 

B, (HL?) 
BC 

AF 

À 

PO, 23C4H 
AF 

HL 

C, Z3BAH 
HL, 791DH 
C (HL) 
HL 

B, (HL) 
HL 

BC 

C (HL) 
HL 

B, (HL) 
BC 

BH 


AF 

A3 

GE 

ha 

K 

BC, 2486H 
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sX-Adresse in HL 
‚Carry löschen 
;Typ-Code laden 
ıTyp-Code - 3 

;= String ? 


sja, TYPE MISMATCH - Error 
;öperanden laden 
3X-Adresse + 1 

in. Byte 

sund aut Stack 

bei Integer fertig! 


‚sonst 2 weitere Bytes laden 


sund auf den Stack 
;Typ-Flag auf den Stack 

‚= einfache Genauigkeit? 
ija, fertig 

;Typ-Flag wieder laden 
;X-Adresse + 1 

3Y aut Stack ? ja - Sprung 
sLSB X-Adresse laden 

‚2 weitere Bytes laden 


i2 Bytes auf den Stack 
tund noch 2 Bytes laden 


sauch auf den Stack 

iLD B,BFiH Dumay-Befehl 
suberspringt den POP 

;Typ-Flag laden (bei einf.Gen.) 
;Typ-Code berechnen 
söperator-Code in C 

ıTyp-Code in B 

jauf den Stack packen 

jAdresse zur Durckführung der 


23CD 
23CE 
2301 


23D4 
2307 
23DA 
230D 
23DF 


23E1 
23E2 
23E5 
23E6 
23E7 
23EA 


23Et 
23ED 
2J3EF 
23F8 
23F1 
23F2 
235 
23F8 
23F9 
23FA 
23FD 
2400 
2491 
2484 


2406 
2407 
2488 
2408 
240C 
240E 
2418 
2413 


65 
2A DB 78 
3 A233 


CD Bi BA 
CD A4 09 
8i F2 13 
16 7F 
18 EC 


D5 

CD 7F 0A 
Di 

£5 

Bl EIS 
18 Ei 


78 

FE 64 

D9 

65 

D5 

11 B4 64 
21313825 
E5 

E7 
292 
2A 21 79 
E5 

81 86 25 
1807 


Ci 

79 

32 B8 78 
78 

FE 88 

28 28 
JA AF 78 
FE 88 


PUSH BC ‚Operationen auf den Stack 
LD HL, {78D8H) Pogramsmzeiger laden 
JP 233AH ‚nächster Öperand 


Öperanden für Potenzieren auf den Stack 


CALL QABIH iX in einfache Genauigkeit umwand. 
CALL  BIA4H ‚X auf den Stack 

LD BC,13F2H Adresse zur Potenzberechnung 

LD D, 7FH ‚neuer Prio.-Code = 7F 

JR 23CDH 


Öperanden für AND und OR auf den Stack 


PUSH DE ‚Operator-Code auf Stack 

CALL  BA7FH ‚Operand in Integer umwandeln 

POP DE ‚Operator-Code laden 

PUSH HL ;Operand auf den Stack 

LD BC, 25E9H jAdresse für ”AND’- und "OR’-Verarb 
JR 23CDH 

Vergleichsoperatoren verarbeiten 

LD A,B ihatte letzter Operator höhere. 

CP b4H joder gleiche Priorität ? 

RET NC Ja, letzte Operation berechnen 
PUSH BC letzte Priorität auf Stack 

PUSH DE öperator-Code auf Stack 

LD DE, 6404H Priorität in D,Vergleichscode in E 
LD HL, 25B8H Adresse zur Bearbeitung des 

PUSH HL \Vergleichsergebnisses auf Stack 
RST 20H ‘Datentyp testen 

JP NZ, 2395H ynumerisch? ja-Operanden auf Stack 


LD HL, (7921H) ‚String! Stringzeiger auf Stack 
PUSH HL 


LD BC, 258CH Adresse Stringvergleich laden 
JR 23CDH ‚und auf den Stack 
Operationen ausführen 

POP BC ;Öperator-Code und Typ laden 
LD At öperatorcode speichern 

LD {78B8H) ,A 

LD AyB ıTyp in A 

CP 8 ii. Operand dopp.Gen. ? 

JR Z12438H ija! 

LD À, (78AFH) iTyp des 2. Operanden laden 
CP 8 ı= doppelte Genauigkeit ? 
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2415 
2418 
2419 
Z41A 
2416 
zur 
2428 
2422 
2425 


2428 
2428 
242D 
742E 
242F 
2430 
2431 
2432 
2433 
2436 
2437 


2438 
243B 
243E 
243F 
2442 
2443 
2446 
2447 
2448 
2448 
244E 
2451 
2454 
2455 
2456 
2457 
2459 
245A 
2453 
245C 


CA 68 24 
5 

78 

FE 84 

CA 72 24 
TA 

FE 83 

CA Fó BA 
DZ 7C 24 


zi BF 18 
06 88 

29 

87 

4E 

23 

46 

Di 

2A 21 79 
65 

c9 


CD DB 0A 
cD FC 09 
El 

22 iF 79 
Ei 

22 1D 79 
Cl 

Di 

CD B4 89 
CD DB BA 
21 AB 18 
3A BB 78 
87 

65 

4F 

86 88 

8 

Ci 

TE 

23 


JP 
LD 
LD 
cP 
JP 
LD 
CP 
JP 
JP 


Z, 2460H 
DA 

A,B 

4 

2, 2472H 
ÀD 

3 
Z,BAF&H 


NC, 247CH 


jja! 

Typ des 2. Öperanden in D 
‚Typ 1. Operand in A 

‚= einfache Genauigkeit ? 

jja! 

;Typ 2. Öperand laden 

sund testen 

String! - TYPE MISMATCH Error 
jeinf. Genauigkeit! - Sprung 


Integer - Operationen ausführen 
HL, LBBFH 


LD 
LD 
ADD 
ADD 
LD 
ING 
LD 
POP 
LD 
PUSH 
RET 


3,8 
HL, BC 
HL, BC 
Cs (HL?) 
HL 

B, (HL) 
DE 


HL, (7921H) 


BC 


‘Start der Sprungtabelle ’Integer’ 
söperator-Code 2x addieren 


‚Sprungadresse laden 


il. Operand vor Stack holen 
i2. Öperand aus X laden 
‚Sprungadresse auf den Stack 
sund Routine anspringen 


1. Öperand doppelte Genauigkeit 


CALL 
CALL 
POP 
LD 
POP 
LD 
POP 
POP 
CALL 
CALL 
LD 
LD 
RLCA 
PUSH 
LD 
LD 
ADD 
POP 
LD 
INC 


BADBH 
BIFCH 
HL 

{791 FH) 
HL 


‚HL 


(791DH), HL 


BC 
DE 
BIB4H 
BADBH 


HL, 18ABH 
A, (78BBH) 


BC 
CA 
B8 
HL BC 
BC 

A, (HL) 
HL 


= 157- 


$2. Öperand in dopp.Gen; umwandeln 
sund in Y übertragen 

si. Operand vom Stack in X 

zuerst die 4 niederw. Bytes 


idie n. 3 Bytes und der Exponent 


sauch in X 

si. Öperand in dopp.Gen. umwandeln 
Start der Sprungtabelle laden 
;Operator-Code laden 

ı* 2 

‚BC sichernk 

;öperator-Code * 2 in BC 


sauf Startadr. der Sprungtab. add. 
;BC wiederherstellen 
;Sprungadresse laden 


245D 
245E 
2453F 


2460 
2461 
2464 
2465 
2468 
246A 
246C 
2460 
2470 


2472 
2475 
2476 
2477 
24 7A 


247C 
2470) 
2498 
2483 
2486 
2487 
248A 
2488 
248E 


2498 
2491 
2492 
2495 
2496 


66 


E? 


65 

CD FC 89 
Fi 

32 AF 78 
FE 84 

28 DA 

El 

22 21 79 
18 D9 


CD Ri 8A 
cl 

Di 

21 35 18 
18 D5 


Ei 

CD A4 B9 
CD CF BA 
CD BF 87 
Ei 

22 23 79 
El 

22 21 79 
18 E7 


E3 


cD CF BA 
Ei 
CD A4 09 


LD H, (HL) 
LD LA 
JP (HL) sAusführungs-Routine anspringen 


2. Öprerand = doppelte Genauigkeit 


PUSH BC ;Operatorcode und Typ auf Stack 
CALL  BIFCH ;2. Örerand in Y übertragen 

POP AF Typ des i. Operanden 

LD {7BAFH),A sin Typ-Byte 

CP 4 $= einfache Genauigkeit? 

JR Z, 2446H iJä,; weiter bei 2444H 

POP HL ‚nein, Integer in HL 

LD (7921H),HL sund in X 

JR 244RH jweiter bei 244BH 

1. Öperand = einfache Genauigkeit 

CALL  BABIH i2. Operand in einf.Gen.umwandeln 
POP BC si. Operand vom Stack in Y 

POP DE 

LD HL, 1885H ‚Startadresse der Sprungtabelle 
JR 2451H weiter bei 2451H 

2. Öperand = einfache Genauigkeit 

POP HL si. Operand (Integer) in HL 
CALL  BIA4H $2. ÖOperand auf Stack 

CALL  BACFH si. Operand in einf.Gen.umwandeln 
CALL  B9BFH sund in Y ubertragen 

POP HL 2. Öperand aus Stack in X 

LD (79234) HL siExp. + MSB) 

POP HL 

LD (7921H), HL ‚(2 Byte LSB) 

JR 2477H weiter bei 2477H 


RR E 


Integer - Division 
Eing.: DE = Dividend 


HL = Divisor 
Ausg.: X = Quotient (in einfacher Genauigkeit) 
PUSH. HL Divisor auf Stack 
EX DE, HL Dividend in HL 
CALL BACH sund mit einf.Gen. in X 
POP H Divisor laden 
CALL  BIA4H Dividend aus X auf Stack 
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2499 
24% 


249F 
Z448 
ZuA2 
2445 
2448 
ZAAB 
24 AE 
2488 
24B2 
24B4 
2487 
2439 
ZuBC 
24BE 
2401 
2463 
2466 
2468 
ZACR 
24CD 


24CF 
2400 
2403 
24D4 
2407 
2408 


2409 
Z4DB 


2&DD 


CD CF OA 
63 AB 88 


D7 

1E 28 

CA Aż 19 
DA 6C BE 
CD 3D 1E 
D2 48 25 
FE CD 

28 ED 

FE 2E 

CA 66 BE 
FE CE 

CA 32 25 
FE 22 

CA 66 28 
FE CB 

CA C4 25 
FE 26 

CA 94 79 
FE G3 

28 BA 


D7 
JA IA 78 
£3 
CD F8 27 
El 
c9 


FE CZ 
20 BA 


D7 


CALL  BACFH Divisor mit einf.Gen. in X 
JP BBABH szur Division mit eınf. Genauigk. 


HH HEE 
Öperanden für Ausdrucksanalyse auswerten 


Eing.: HL = Adresse des Üperanden im Text 
Ausg.: X = Ergebnis 


RST 10H snächstes Zeichen adressieren 

iD E,28H Fehlercode in E 

JP Z,19A2H ‚Anweis.ende, MISSING ÖPERAND Error 
JP C BESCH Ziffer! Wert ermitteln und in X 
CALL 1E3DH ;Buchstabe? 

JP NC; 2548H Ja, Variablenwert in Ausdruck 
cP ACDH PE -= Vorzeichen ? 

JR 2, 249FH ija, ignorieren 

CP Er Zeichen = ’,’ ? 

JP Z,BESCH iJa, Zahl nach X, fertig 

cP OCEH pae o- Vorzeichen ? 

JP 1,2532 iJa; auswerten 

cP ran jAnfuúhrungszeichen ? 

JP 1, 2B66H Ja, Stringkonstante in X 

CP BCBH INOT - Token ? 

JP Z,24C4H 1Ja, ausführen 

EP E4 p er? 

JP 1, 7994H Ja; zum RAM-Erweiterungsausgang 
CP BCIH ;= ERR-Token ? 

JR NZ, 24D9H mein, weiter 


ERR - Funktion 
ergibt den letzten Fehler-Code 


RST 10H ‚nächstes Zeichen adressieren 
LD A, {7B9AH) ‚letzten Fehlercode laden 
PUSH HL ;Programmzeiger auf Stack 
CALL  27F8H ‚Fehlercode als Integer in X 
POP HL Programazeiger wieder laden 
RET fertig 

cP BC2H = ERL-Token ? 

JR NZ, 24E7H ‚nein, weiter 


ERL - Funktion 
ermittelt die letzte Fehlerzeile 
RST 18H jnachstes Zeichen adressieren 
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Z4DE 
Z4DF 
24E2 
2465 
2uE6 


24E7 
24E9 


24EB 
24E 
Z4ED 
Z4EE 
2A 
ZuF2 
Zar 3 
24F4 
24F5 
24F6 
24F7 
24FA 
24FD 
24FE 


24FF 
2501 
2504 
2506 
2509 
z508 
250E 
2510 
2513 
2515 
2518 
251A 
31D 
if 
2522 
2524 
2527 
2529 


E5 
2A EA 78 
cD 66 BC 
El 
c9 


FE C0 
20 14 


D7 
CF 
28 
CD 8D 26 
CF 
29 
E5 
EB 
7C 
B5 
CA 4A 1E 
CD 9A BA 
El 
(9 


FE Ci 
CA FE 27 
FE 65 
CA 9D 79 
FE C8 
CA C9 27 
FE C7 
CA 76 79 
FE C6 
CA 32 0i 
FE C9 
CA 9D Bi 
FE C4 
CA 2F 2A 
FE BE 
CA 55 79 
Dé D7 
D2 4E 25 


PUSH 
LD 
CALL 
POP 
RET 


CP 
JR 


HL 

HL, (78EAH) 
BCA6H 

HL 


BCH 
NZ, 24FFH 


VARPTR - Funktion 
Ermittel Variablen-Adresse in der Variablen-Tabelle 


RST 
RST 
DEFB 
CALL 
RST 
DEFB 
PUSH 
EX 
LD 
OR 
JP 
CALL 
POP 
RET 


CP 
JP 
CP 
JP 
CP 
JP 
CP 
JP 
cP 
JP 
cP 
JP 
cP 
JP 
cP 
JP 
SUB 
JP 


18H 

8 

n? 
260DH 
8 

2,3 
HL 
DE, HL 
ÂH 

L 

Z, 1E4AH 
BAIAH 
HL 


BCIH 

Zn 27FEH 
BC5H 

2, 799DH 
BCBH 

2, 27C9H 
BC7H 

1, 7976H 
BCAH 
1,8132H 
BC9H 
Z,819DH 
BC4H 

Z, 2AZFH 
OBEH 

1, 7955H 
2D7H 
NC, 254EH 
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‚Programmzeiger auf Stack 

‚letzte Fehler-Zeilennummer laden 
jin einf.Gen. umwandeln und in X 
;Programmzeiger wieder laden 
fertig 


s= VARPTR-Token ? 
jnein, weiter 


jnächstes Zeichen adressieren 
folgt ein ’(’ ? 


sAdresse der Variablen eraitteln 
sabgeschlossen mit ’)’ ? 


;Programmzeiger auf Stack 
iVar. Tab. -Adresse in HL 

1:0? 

‚(Variable nicht in Tabelle) 

jja, FUNCTION CODE - Error 

iVar. Tab. Adresse als Integer in X 
iProgramazeiger wieder laden 
fertig 


= USR-Token ? 

ja! 
INSTR$-Token ? 

Ja, zum RAM-Erweiterungsausgang 
MEM-Token 7 

a! 

= TIME$-Token ? 

Ja, zum RAM-Erweiterungsausgang 

= POINT-Token ? 

ja! 

INKEY$-Token ? 

i 


[28 


au an EEE oo an oe 


im 


a! 
STRING$-Token ? 
a! 
= FN-Token ? 

Ja, zum RAM-Erweiterungsausgang 
F 


H c. 0 


C 


unktions-Token ? 


u as an a An 


Q 
» 


2352F 
2530 
531 


2532 
534 
2537 
253A 
2538 
253E 
Bf 


2548 


2543 
2544 
2545 
2548 
2549 
2546 
2540 


254E 
2530 
2551 
2552 
2533 
2554 
2555 
2557 
2559 
253C 
2530 
255E 
2361 


CD 33 23 


CF 
9 
c9 


16 7D 

CD 3A 23 
2A F3 78 
ES 


Ei 
(9 


CD D 24 


E3 
EB 
22 21 79 
E7 
(4 F7 89 
Ei 
c? 


Bi 88 

87 

AF 

653 

D7 

79 

FE 41 

33 16 

cD 35 23 
cF 

26 

CD F4 BA 
EB 


CD 7B 09 


Klammerausdruck auswerten 


CALL  2335H ‚nein, in Klammern eingeschlossenen 
Ausdruck auswerten 

RST B jabgeschlossen mit °)? 7 

DEFE `)? 

RET sfertig 


’-’ - Vorzeichen auswerten 


LD D, 7DH ‚Priorität für ’-’ - Vorzeichen 
CALL 2334H Ausdruck mit Priorität auswerten 
LD HL, (78F3H) ‚Programmzeiger laden 

PUSH HL ‚und auf Stack 

CALL  897BH jErgebnis # (-1) 

POP HL ‚Programmzeiger wieder laden 

RET fertig 


Variablenwert in Ausdruck einbringen 

CALL  Z&BDH Variable in Variablen-Tabelle erm. 
‚Var. Tab.-Adr. in DE. Wenn nicht 
‚vorhanden, X = 8, sofort zurück 


PUSH HL ;Programmzeiger auf Stack 
EX DE, HL War. Tab.-Adresse in HL 
LD (7921H), HL sund in X als Strngzeiger 
RST 20H ‚Stringvariable ? 

CALL NZ, 09F7H snein, Variablenwert in X 
POP HL ;Programmzeiger laden 

RET ifertig 


Funktions-Argusente auswerten und 
Funktions-Routinen anspringen 


LD 3,8 ‚B=8B 

RLCA sA = {(Token-D7H) # 2 

LD GA sin BC als Tabellen-Offset 
PUSH BC sauf den Stack sichern 

RST 10H nächstes Zeichen adressieren 
LD Ast sLSB Tab-Offset > 41H ? 

cP 41H s{MID$, RIGHTS o. LEFT$) 

JR C: 256FH jnein! 

CALL 2335H si. Argument auswerten 

RST 8 folgt ein Komma ? 

DEFB °y? 

CAL  BAF4H ‚1. Argument kein String? TM-Error 
EX DE, HL ;Programmzeiger in DE 
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2562 
2565 
2366 
2567 
2568 


2368 
250C 
256D 


256F 
2372 
2573 
2574 
2576 
2578 


257A 
2578 
257E 
Zr 
2582 
2583 
2586 
2587 
2588 
2589 
2584 
2588 


258C 


2586F 
25% 
2591 
2592 
2593 
2594 
2595 
2596 
2597 


zA 21 79 
E3 
E5 
EB 
cD iC ZB 


EB 
E3 
18 14 


cD 2C 25 
E3 

7D 

FE RC 
38 07 
FE 18 


E3 
DC Bi 0A 
Ei 
1i 3E 25 
D5 
Bi 88 16 
87 
4E 
23 
66 
69 
E9 


CD D7 29 


7E 
23 


23 
46 
Di 
c5 
F5 
cD DE 29 


LD 
EX 
PUSH 
EX 
CALL 


EX 
EX 
JR 


CALL 
EX 
LD 
CP 
JR 
cP 


PUSH 
CALL 
POP 
LD 
PUSH 
LD 
ADD 
LD 
INC 
LD 
LD 
JP 


HL, (79218) 


(SP), HL 
HL 

DE, HL 
ZBICH 


DE,HL 
(SP), HL 
Z583H 


252CH 
(5P) HL 
AL 
OCH 

C, 257FH 
1BH 


HL 
C OABIH 
HL 


DE, 253EH 


DE 


BC, 1608H 


HL, BC 
C: (HL) 
HL 

Hi (HL) 
LC 
(HL) 


iStringzeiger laden 

;Tab.Offset laden, Stringz.auf Stk. 
;Tab.Offset auch wieder auf Stack 
‚Programmzeiger wieder in HL 

;2. Argument analysieren 

sGanzz. Wert (<256) in DE 

2. Arg. in HL, Prog.zeiger in DE 
Tab.Offset laden, 2.Arg.auf Stack 
weiter bei 2583H 


Argument auswerten 

;Tab.Offset laden, Prog.z2.auf Stack 
iL5B Tab.Offset < BCH ? 

(SGN, INT, ABS, FRE, INP, POS) 
jja! 

LSB Tab.Offset < 1BH ? 

1 (SOR, RND, LOG, EXP, C05, SIN, TAN, ATN) 
Tab. Offset auf Stack 

ida, Argument in einf.benauigkeit 
;Tab.Offset wieder laden 
}Rucksprungadresse setzen 


Anfangsadresse der Sprungtabelle 


ı+ Tabellen-Öffset 
sSprungadresse laden 


ıFunktions-Routine anspringen 


RHEIN 


Stringvergleich 
CALL  29D7H 
LD Ay (HL) 
INC H 

LD C (HL) 
INC HL 

LD B (HL) 
POP DE 
PUSH BC 
PUSH AF 
CALL  29DEH. 
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‚2. String aus Zwischenspeicher 
‚und Stringbereich entfernen 
sLaänge 2. String in A 

sAdresse 2. String in BC 


iAdresse 1. String in DE 
Adresse 2. String auf Stack 
Länge 2. String auf Stack 

si. String aus Zwischenspeicher 


2594 
2598 
2% 
259D 
259E 
259F 
25AB 
ash 
25R2 
Z5Ad 
2544 
25A5 
25A7 


Z5A8 
2549 
Z5AA 
25AB 


25Ac 
25AD 
25AE 
25AF 
2580 
Bi 
25B2 
2584 
2585 


23588 
2589 
25BA 


Z5BB 
258C 
258E 
Br 


Di 
3E 


23 
46 
Ei 
7B 
B2 
c8 
7A 
D6 Bi 
D8 


AF 
BR 
st 
Da 
15 
iD 


23 
83 
28 ED 


(3 68 89 


st 


cl 


Ch FF 


cD 8D 89 


und Stringbereich entfernen 


POF DE ‚Lange 2. String nach D 

iD E (HL) Länge 1. String nach E 

INC HL 

LD C, (HL) Adresse 1. String in BC 

Inc HL 

LD B (HL?) 

POP HL Adresse 2, String in HL 

LD AE ‚beide Strings leer? 

úR D 

RET Z ‚Ja, zuruck mit A=B (gleich) 
LD ÅD sLange ż. String = B? 

SUB l 

RET c ijas, zuruck mit A=FF, Cy=i, S21 


idh. String 1 > String 2 


XOR À i2. String = leer ? 

CP E 

INC A 

RET NC ija, zuruck mit A=l, Z=0, Cy=0 
sd.h. String I < String 2 

DEC D ‚beide Stringlängen - { 

DEC E 

LD A, (BC) Zeichen aus 1. String laden 

CP (HL) smit Zeichen aus 2, String vergl. 

INC HL ‚Stringzeiger + Í 

INC BC 

JR 2, 25A1H ‚beide Zeichen gleich, weiter 

CCF ‚Carry komplementieren 

JP 0960H Flag aufbereiten, fertig 


FERE IE AE AIEE dH E AEAEE MEE EAE EFE E dE AE AEAEE dE EEEE E 


Ergebnis des Vergleichs mit dem Vergleichsoperator 
zum Gesamtergebnis zusammenfassen 
Eing.: 1. Op. > 2. Op. - A=FF, Cysi 

1. Op. = 2. Op. - Ad 1. Op. < 2. Op. - Asi 


INC À ıVergleichsergebnis + Í 

ADC Ah 12 + Carry 

POP BC \Vergleichs-Öperatorcode laden 
iB(0)s1 - >, Bisi - =, R(2)=1 - < 

AND B istimmt ein Bit überein? 

ADD À: BFFH ijä; Carry = 1 

S5C AA sund A=FF 

CALL  898DH ‚A als Integer in X 
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2504 
2566 
2569 
25CC 
25CD 
25tE 
25CF 
2508 
25D1 
2502 
2505 
25D6 


2509 
25D6 
25DE 
25E8 
25E2 
Z5E3 
25E4 
25E3 
25E7 
25EB 


2569 
25EA 


18 12 


16 5A 

CD 3A 23 
CD 7F BA 
7D 


67 
22 ł1 79 
ci 
C3 46 23 


JA AF 78 
FE 88 

J3 85 

D6 83 

B7 

37 

{9 

D6 83 

B7 

(9 


65 
CD 7F ØA 


JR Z5D6H weiter bei 25D6H 
RHEIN 


NOT ausführen 


LD D,5AH ‚Not-Priorität in D 

CALL  233AH Ausdruck mit Priorität auswerten 
CALL  BATFH Ergebnis in Integer umwandeln 
LD ÀL sund invertieren 

CPL s{LSB) 

LD L;A 

LD ÀH 

CPL s (MSB) 

LD HA 

LD {7921H}, HL sin X ubertragen 

POP BC sletzte Priorität laden 

JP 2346H weiter bei 2345H 


KERRIE EE EEE E AE E E HE IEE EE FE AAEE EE E E EE E E 


Restart 20 
testet den Datentyp des X-Registers 
Eing.: 78AF = Typ-Code 
Ausg.: A = Typ-Code -3 
Integer: 5=1, P=1, Cy=i 
einf.&.: (Cy=l 
dopp.G.: P=i 
String : Z=1, (=i, P=i 


LD A, {7BAFH) ;Typ-Code laden 

cP 8 ‚doppelte Genauigkeit ? 
JR NC, 25E5H ‚Ja! 

SUB 3 sTyp-Code - 3 

OR å ‚Flags setzen 

SCF iua. Carrysi 

RET 

SUB 3 iTyp-Code - 3 

OR A Flags setzen 

RET 


FEFE REI HEE H dE AIE AE FE HEEE AEA E FE AE AE AE FE AE FE FEAE AEE AE AHEHE EE 

AND und OR ausführen 

PUSH BC ‚letzte Priorität auf Stack 

CALL  BATFH 12. Öperand in Integer umwandeln 
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Z5ED 
Z5EE 
25ER 
23F2 
25F3 
z25F5 
25F7 
23F8 
25F9 
25FA 
25FB 
Zöft 
z5FD 
25FE 
25FF 
2608 
2681 
2682 


2603 
2684 
2685 
2686 
2687 


2608 
26BB 
2686 


Fi 

Di 

BI FA 27 
c5 

FE 46 
20 86 
7B 

B5 

oF 

7C 

BZ 

(9 

7B 

AS 


SÈR 


D7 
c8 


2C 


Bi B3 26 
65 
FA AF 


POP AF Priorität in AF laden 

POP DE ;1. Öperand laden 

LD BC, Z7FAH Rucksprungadresse setzen 

PUSH BC 

CP 46H AND 7 

JR NZ, 25F DH ija! 

LD AE ;beide Öperanden ODER-verknupten 
OR L (LSB) l 

LD L,A 

LD AH 

ÒR D siMSB) 

RET 

LD AE beide Óperanden UND-verknupfen 
AND L stLSB) 

LD LA 

LD AH 

AND D (MSB) 

RET 


HEFEI 1E E FEAE 1E FE HE HE AE FE FEAE E d 1E HE AAE AE HE HE E FEE FEAE HE e dE FE E E E 


Weitere Argumente fur DIM bereitstellen 


DEC HL iProgrammzeiger - 1 

RST 1BH nächstes Zeichen adressieren 
RET Z jAnweisungsende? ja-zurúck 
RST 8 folgt ein Komma ? 

DEFB ’,’ 


TIEREN EIER 


DIM - Anweisung 
Matrizen einrichten 


LD BC, 2683H ;Rucksprungadresse f. n. Argusent 
PUSH BC 
OR AF ıDIM-Flag setzen 


TRATEN 


Variable in Tabelle suchen und einrichten, wenn nicht 
vorhanden 
Eing.: HL = Adresse Variablennase 
Ausg.: DE = Adresse in Variablen-Tabelle 
XOR À ;DIM-Flag löschen 
jAchtung: 260D redefiniert 
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2611 
2612 
2615 
2618 
2619 
Z61A 
261B 
261D 
2620 
2622 
2623 
2624 
2626 
2629 


2628 
262E 
262F 
2631 
2633 
2634 
2635 
2637 
2638 


2641 
2642 
2644 
2646 
2647 
2649 
264 
2640 
264E 
2264F 
2658 
2651 


32 AE 78 


46 
CD 3D 1E 
DA 97 19 
AF 

4F 

D7 

38 05 

CD 3D 1E 
38 89 
AF 

D7 

38 FD 
CD 3D 4E 
38 F8 


11 52 26 

D5 

16 B2 

FE 25 

c8 

14 

FE 24 

{8 

00 20 AR 0a ga 
Og 2a Ba oe 


78 

D6 41 
Eé 7F 
F 

16 08 
E5 
218 79 
19 

36 

Ei 

ZB 

(9 


LD 


(7BAEH) A 


Namen ermitteln 


LD 
CALL 
JP 
KÜR 
LD 
RST 
JR 
CALL 
JR 
LD 
RST 
JR 
CALL 
JR 


B (HL) 
tE3DH 
C, 1997H 
À 

CÀ 

18H 

C, 2622H 
1E3DH 
6, 262BH 
GA 

10H 

C, 2623H 
1E3DH 
NC, 2623H 


Typ ermitteln 


LD 
PUSH 
LD 
cD 
RET 
INC 
CP 
RET 
DEFB 


DE, 2652H 
DE 

D2 

wi 

Z 

D 

’g? 

Z 


ıDIM-Flag speichern 


ii.Zeichen des Var.Names in B 
Buchstabe ? 

snein, SYNTAX-ERROR 

‚C (2, Zeichen) löschen 


‚nächstes Zeichen laden 
Ziffer ? ja-Sprung 
Buchstabe ? 

jnein, Name nur ! Buchstabe 
i2. Zeichen in C 

jnächstes Zeichen laden 
ıZiffer? ja-ubergehen 
}Buchstabe? 

sja, übergehen 


;Rucksprungadresse setzen 


;Typcode = Integer 
in. Zeichen = ’%’ 7 
iJa; fertig 
iTypcode = String 
in. Zeichen = ’$’ 7 
1Ja, fertig 


8,8,2,0,8,2,0,0,8 , 9 x NOP 


Typcode aus Tabelle entnehmen 


LD 
SUB 
AND 
LD 
LD 
PUSH 
LD 
ADD 
LD 
POP 
DEC 
RET 


ÀB 

1A 
TFH 
EsA 
D,8 
HL 

HL, 71H 
H DE 
D, (HL) 
HL 

HL 
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Stellung des i. Buchstaben im 
Alphabet ermitteln 

‚Bit 7 löschen 

sals Tabellen-Öffset in DE 


ıProgrammzeiger löschen 

sAnfang der Typcode-Tabelle adress. 
it öffset 

;Typcode aus Tabelle laden 
‚Programmzeiger wieder laden 

il,» da keine explizite Typangabe 
weiter bei 2652H 


2636 
2657 
265A 
2658 
265E 
2635F 
2661 
2664 
2665 
2668 
2669 
266A 
266D 
Z66E 
2671 
2672 
2673 
2675 
2676 
2677 
2678 
2677 
2678 
267C 
267D 
267F 
2680 
2681 
2682 
2685 
2686 
2687 
2688 
2689 
2688 
2686 


26BE 
268F 


TA 
32 AF 78 


D7 

3A DC 78 
B7 

(2 64 26 
7E 

D6 28 

CA EI 26 
AF 

32 DC 78 
£5 

D5 

żA F9 78 
EB 

2A FB 78 
DF 

Ei 

28 19 

1A 

eF 

BC 

13 

20 88 

1A 

B9 

28 07 

13 

1A 

B8 

CA CC 26 
JE 

13 

13 

E5 

24 88 

19 

18 DF 


7C 
El 


LD ÀD iTypcode in Typ-Byte ubertragen 
LD {7BAFH) À 


Variable in Variablen-Tabelle suchen 


RST 10H ‚nächstes Zeichen adressieren 
LD A, {78DCH) jIndizierung gesperrt ? 

üR À stfur Laufvariable) 

JP NZ, 2664H ja! 

LD Âs (HL) Zeichen laden 

SUB F po ia 

JP 2, 26E9H sja, indizierte Variable 

XOR À i Indizierungs-5perre aufheben 
LD {78DCH) A 

PUSH HL Programmzeiger auf Stack 
PUSH DE iTypcode auf Stack 


LD HL, (78F9H) Anfang der Variablen-Tabelle laden 
EX DE, HL 
LD KL, (78FBH) ‚Ende der Variablen-Tabelle laden 


RST 18H sAdressen gleich? 

FÜP HL ;Typcode in H 

JR 2, 268EH jja, Variable nicht gefunden 

LD Às (DE) Typ aus Variablen-Tabelle laden 
LD L;A sin L 

cP H i=Typ gesuchter Variabler ? 

INC DE Adresse Var. Tabelle + 1 

JR NZ, 2686H nein, nächste Variable 

LD A; (DE) j2. Zeichen aus Tabelle laden 

cP £ = ż, leichen der Variablen? 

JR NZ, 2686H ‚nein, nächste Variable 

ING DE Adresse Var. Tabelle + I 

LD À, (DE) ii. Zeichen aus Tabelle laden 

EP B i= 1. Zeichen der Variablen? 

JP 7, 26CCH ijas Variable gefunden’ 

DEFB 13H sLD A,i3H Dummy-Befehl 

INC DE jAdresse Var. Tabelle auf 1. Zeichen 
INC DE ‚Adresse Var. Tabelle auf Wert 

PUSH HL ;Typ gesuchter Variabler auf Stack 
LD H8 Adresse der Var. Tabelle 

ADD HL, DE it Länge des Typs = nächster Eintr. 
JR 266DH jweitersuchen 

Variable nicht in Variablen-Tabelle enthalten 

LD ÀH ‚Typ in A 

POP HL ;Programmzeiger laden 
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337377. 


bo 


E3 

F5 

D5 

il Fi 24 
DF 

28 36 
14325 
DF 

Di 

28 35 


Fi 
E3 


E5 

c5 

bF 

26 00 

c5 

83 

23 

23 

2A FD 78 
E5 

09 

Ci 

E5 

CD 55 19 


El 

22 FD 78 
68 

69 

22 FB 78 
ZB 

36 88 

DF 

20 FA 

DI 

73 

23 

Di 

73 


‚mit Rucksprungadresse tauschen 
Typ auf Stack 

‚Endadresse der Var.Tab. auf Stack 
Rucksprungadresse = 24F1H? 

stvon VARPTR) 

ıdJa, weiter bei 26CFH 
;Rucksprungadresse = 2543H? 

(von Ausdrucksanalyse) 

var. Tab. -Endadresse wieder laden 
ija, weiter bei 26D5H 


iTyp laden 

;Rucksprungadresse auf den Stack 
‚Programmzeiger laden 
;Programszeiger auf den Stack 
Variablen-Name auf den Stack 

Typ int 

ıB=2, d.h. BC enth. Länge des Werts 
Länge auf den Stack 

+ 3 

ı= Gesamtlänge des Var.Tab-Eintrags 


Anfangsadr. des freien Speichers 
sauf den Stack 

it Gesamtlänge Var. Tab-Eintrag 
;Wertlänge laden 

‚neue Anf.Adr.fr.Speicher auf Stack 
;Matrix-Tabelle verschieben, um 
‚Platz fur die neue Variable zu sch 
sAnf.Adr. freier Speicher laden 
und speichern 

‚neue Anf.Adr. Matrix-Tab. in HL 


sund speichern 

‚neuen Var. Tab-Eintrag löschen 
stDE = Var.Tab-Adr der Variablen) 
fertig ? 

nein, nächstes Byte 

‚Typ in E laden 

sin Variablen-Tabeille eintragen 
;Tabellenadresse + į 

;Name vom Stack holen 


EX (SP), HL 
PUSH AF 

PUSH DE 

LD DE, 24FiH 
RST 18H 

JR 2, 26CFH 
LD DE, 2543H 
RST 1BH 

PoP DE 

JR 1, 26D5H 
Neue Variable einrichten 
PÜP AF 

EX (SP), HL 
PUSH HL 

PUSH BC 

LD GA 

LD B,8 

PUSH BC 

INE BC 

INC BC 

INC RBC 

LD HL, (78FDH) 
PUSH HL 

ADD HL,BC 
POP BC 

PUSH HL 

CALL 1955H 
POP HL 

LD {78FDH) HL 
LD HB 

LD LC 

LD (78FBH) HL 
DEC HL 

LD (HL),B 
RST 18H 

JR NZ, 26BEH 
POP DE 

LD (HL), E 
INC HL 

POP DE 

LD (HL), E 


=i- 


i2. Zeichen in Var. Tabelle 


2669 
26CA 
26CB 
2616 
Z6CD 
26CE 


26CF 
2608 
26D1 
2602 
2603 


26D4 


2605 
26D8 
2609 
26DA 
26DB 
ZADE 
ZbDF 
26E1 
2664 
26£7 
26E8 


26£9 
26EA 
26ED 
26EE 
26EF 
zF 
26F} 
Z6F4 
26F5 
26F6 


57 
F 
2 
Fi 
E3 


c9 


32 24 79 
ci 

67 

àF 

22 21 79 
E7 

20 86 

21 28 19 
22 2179 
Ei 

(9 


E5 
2A AE 78 
E3 
37 
D5 
65 
CD 45 1E 


1 
Fl 
EB 


INE 
LD 
EX 
INC 
POF 
RET 


HL 
{HL),D 
DE, HL 
DE 

HL 


;Tabellenadresse + I 

si. Zeichen in Var.Tabelle 
}Tabellenadresse in DE 

it 1 = 1, Adresse fur Werteintrag 
;Programmzeiger laden 

fertig 


bei VARPTR Variable nicht ın Tabelle 


LD 
LD 
POP 
POP 
EX 


RET 


D,A 
EA 
AF 
AF 
(SP) HL 


Var. Tab-Adresse in DE = 0 
‚Stack korrigieren 
;Rucksprungadresse auf den Stack 


;Programmzeiger laden 
szuruck in VARPTR-Routine 


beı Ausdrucksanalyse Variable nicht in Tabelle 
{7924H} À 


LD 
POP 
LD 
LD 
LD 
RST 
JR 
LD 
LD 
POP 
RET 


BC 
HA 
L;A 


(7921H), HL 


20H 


NZ, 26E7H 
HL, 1728H 
(7921H), HL 


HL 


‚X=8 für einf.u. dopp. Genauigk. 
Stack korrigieren 
HL = B fur Integer 


sund auch in X eintragen 
‘Typ ermitteln 

‚String? nein-Sprung 
ıStringzeiger auf Leerstring 
‚in X eintragen 
‚Programmzeiger laden 
jzuruck zur Ausdrucksanalyse 
‚(2 Stufen) 


RR e eE 


Matrix - Verwaltung 


PUSH 
LD 
EX 
LD 
PUSH 
PUSH 
CALL 


POP 
POP 
EX 


HL 


HL, (78AEH) 


(SP) HL 
Dr 

DE 

BC 
1E45H 


BC 
AF 
DE, HL 
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‚Programmzeiger auf Stack 
ıDIM-Flag und Typ laden 
imit Prog.zeiger tauschen 
;DIM-Zähler = 8 
;DIM-Zähler auf Stack 
;Variablen-Name auf Stack 
sIndizierung auswerten. 
Ergebnis (32768) in DE 
}Variabien-Name laden 
ıDIM-Zähler in A 
sIndex-Wert in HL 


4112F 


E3 


EB 
st 
37 
TE 
FE 26 
28 EE 


CF 

29 

22 F3 78 
El 

22 AE 78 
D5 

2A FR 78 
JE 

19 

EB 

2A FD 78 
EB 

DF 

3A AF 78 
28 27 

BE 

23 

28 88 

TE 

E9 

23 

20 84 


23 
20 EB 


JA AE 78 


EX 
PUSH 
EX 
ING 
LD 
LD 
cP 
JR 


RST 
DEFB 
LD 
POP 
LD 
PUSH 
LD 
DEFB 
ADD 
EX 
LD 
EX 
RST 
LD 
JR 
cP 
ING 
JR 
LD 


INC 
JR 
LD 
cP 
DEFB 
INC 
INC 
LD 
INC 
LD 
ING 
JR 


(5P) HL 
HL 
DE,HL 
À 

DÀ 

À, (HL) 


tF 


Zy 26EFH 


B 

r)? 
{78F3H}, HL 
HL 
{7BAEH) , HL 
DE 

HL, {79FBH)} 
JEH 

HL, DE 

DE, HL 

HL, {78FDH) 
DE, HL 

15H 

Á, (7BAFH) 
2,27424 
(HL? 

HL 

NZ, 27Z7H 
As (HL) 

č 

HL 

NZ, 2728H 
As (HL?) 

B 

JEH 

HL 

HL 

Ey (HL) 

HL 

D, (HL?) 

HL 

NZ, 270FH 


Matrix gefunden 


LD 


A, {78AEK) 
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imit DIM-Flag auf Stack tauschen 
sDIM-Flag und Typ auf Stack 
iProgrammzeiger in HL 
iDIM-Zähler + I 

sund in D 

Zeichen laden 

folgt ein Komma 7 

‚Ja, nächsten Indexwert 


A 


sfolgt ein ’)’ ? 


;Programmzeiger speichern 

ıDIM-Flag und Typ laden 

sund speichern 

;DIM-Zähler auf Stack 

Anfang d. Matrixtabelle adress. 
ILD A,I9H Dummy-Befehl 
‚Matrixlänge auf Tab.zeiger addier. 
‚Adresse der Matrixtab. in HL 
Anfadr. des freien Speichers laden 
‚Adressen tauschen 

Adressen gleich? 

;Typ laden 

‚Ja, Matrix nicht gefunden! 

‚Typ = mit Tabelleneintrag? 
‚Tabellenadresse + 1 

‚nein, nächsten Tabelleneintrag 

2. Zeichen des Namens aus Tabelle 
‚= 2. Zeichen der gesuchten Matrix? 
;Tabellenadresse + i 

‚nein, nächsten Tabelleneintrag 

jl. Zeichen des Namens aus Tabelle 


$= i. Zeichen der gesuchten Matrix? a 


ıLD A,23H Dummy-Befehl 
;Tabellenadresse + I 
;Tabellenadresse + 1 
;Matrixlänge laden 
;Tabellenadresse + 1 


;Tabellenadresse + 1 
il. Zeichen ungleich! n. Tabeintrag 


ıDIM-Flag gesetzt ? 


! 


rn. 
Ds g vi 
Eed Eel Cod 
Un k Po 


a Pu i 


F 
=l 

Cn 

œ 


ro ho Po 
REREN 
> ~Q 


~d 
D 


ro 
~ 
Cn 


R7 

IE 12 

(2 A219 
Fi 

I 

CA 95 27 
1E 18 

C3 Az 19 


cD 63 19 


23 

23 

22 D8 78 
7i 

23 

JA AE 78 
17. 

79 

21 O8 20 
J0 02 

Ci 

83 

71 

23 

70 

23 

F5 

CD AA OB 


Fi 
3D 
z0 ED 


CR 
LD 
JP 
POP 
SUR 
JP 
LD 
JP 


Neue Matrix einrichten 


LD 
INC 
LD 
LD 
POP 
LD 
INC 
iD 
ING 
iD 
CALL 


INC 
INC 
LD 
LD 
INC 
LD 
RLA 
LD 
LD 
JR 
POP 
INC 
LD 
INC 
LD 
INC 
PUSH 
CALL 


POP 
DEC 
JR 


Â 

Ey iZH 
NZ, 19A2K 
AF 

{HL} 

2, 2795H 
E,18 
1942H 


(KL) A 
HL 

EÀ 
D,8 

AF 
IHL) C 
HL 
(HL), R 
HL 

CA 
1963H 


HL 

HL 

{78D8H) „HL 
(HL); 

HL 

A, (7BAEH) 


Arc 
BG, li 
NC, 2763K 
BC 

BC 
(HL), C 
HL 
(HL), B 
HL 

AF 
BRAAH 


AF 
A 
NZ, 275CH 
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‚Fehlercode in E 

idas REDIMENSIONED ARRAY - Error 
;DIM-Zahler laden 

‚Anzahl Dimensionen in gef.Matrix? 
Ja, weiter bei 2795H 

snein, SUBSCRIPT UT OF RANGE - Err 
izur Fehlerausgabe-Routine 


Typ speichern 
;Tabellenadresse + 1 
Länge eines Elements (=Typ) in DE 


;DIM-Zähler laden 

2. Zeichen Matrixname in Tabelle 
ıTabellenadresse + 1 

j1. Zeichen Matrixname in Tabelle 
;Tabellenzeiger + I 

‚DIM-Zähler in C 

‚noch 2*DIM-Zähler Bytes frei? 
‚nein, OUT OF MEMORY - Error 
;Tabellenadresse + 2 

shinter Längeneintrag 
;Tabellenadresse speichern 
+DIM-Zähler in Tabelle 
;Tabellenadresse + 1 

ıDIM-Flag in Carry schieben 


;DIM-Zähler in A 
Dimension=i1 (Standard) 
skein DIM, Sprung 
‚Dimension aus Stack in BC 
+ 1 fur 8-Index 

sın Tabelle eintragen 
;Tabellenadresse + i 


;Tabellenadresse + I 

ıDIM-Zähler auf Stack 

ıletzte Matr.-Wertlänge * Dimension 
zu Beginn = Länge eines Wertes 
;DIM-Zähler laden 

1 


weitere Dimensionen? ja-Sprung 


276F F5 PUSH AF ıDIM-Flag (Carry) auf Stack 


2770 42 LD R, D ‚Matrix-Wertlänge in BC 
2771 4R LD GE 
ZT EB EX DE, HL sauf Tabeilenadresse 
stjetzt auf 1, Werte-Byte) 
2773 19 ADD HL,DE ‚addieren 
2774 38 C7 JR 6, 273DH ‚überlauf, SUBSCRIPT OUT OF RANGE 
2776 CD bC 19 CALL  199CH jAusrreichend Speicher frei 7 
ynein, OUT OF MEMORY - Error 
2779 22 FD 78 LD {78FDH); HL ‚neue Anfadresse ’freier Speicher’ 
277C 2B DEC HL ‚Matrixwerte löschen 
277D 36 88 LD (HL); B ‚durch Einschreiben von BB 
ZTIF DF RST 18H ‚Werte-Anfangsadresse erreicht? 
2788 28 FA JR NZ,Z77CH ‚nein, nächstes Byte 
2782 83 INC BE ;Matrix-Wertlänge +1 (f. DIM-Zähl.) 
2783 57 LD D,A D= 
2784 ZA DB 78 LD HL, (78D8H) ‚Adresse des DIM-Zählers laden 
2787 5E LD E, (HL) ;DIM-Zahler in E 
2788 EB EX DE, HL sund in HL 
2789 29 ADD HL, HL ;DIM-Zähler # 2 
2784 89 ADD HL, BC it Matrix-Wertlänge 
2778B8 EB EX DE, HL i= Matrixlänge (in DE) 
278C ZB DEC HL iTabellenadresse - 2 
2780D ZB DEC HL i= Zeiger auf Längenfeld 
¿78E 73 LD {HLIsE ‚Matrixlänge in Tabelle eintragen 
279F 23 INC HL ;Tabellenadresse + I 
2770 72 LD (HL), D 1 (MSB) 
2791 23 INC HL ;Tabellenadresse + i 
2792 Fi POP AF ‚DIM-Flag laden 
2793 38 38 JR C, 2705H ;DIM? ja-fertig 
Adresse eines Matrix-Elements eraitteln 
295 4 iD B,A ;Matrix-Öffset = 8 setzen 
2796 4F LD HA sin BC 
2797 7E LD Às (HL?) Anzahl Dimensionen in A 
27198 23 INC HL Tabellenzeiger auf 1. Dimension 
279 16 DEFB 16H ıLD D,BEIH Dummy-Befehi 
27a Ei POP HL ıTabellenadresse laden 
2798B8 5E LD Es (HL) ‚Dimension laden 
279C 23 INC HL Tabellenzeiger + i 
2790 56 LD D, (HL? 1 (MSB) 
27% 23 INC HL ;Tabeilenzeiger + Í 
279 E3 EX (SP) HL ;Tabellenzeiger auf den Stack 


;Index laden 


2769 
ZICA 
ZTICR 
ZICE 
2701 
2702 
2703 


F5 

DF 

DZ 3D 27 
CD AA OB 
19 

3D 

44 

4D 

20 ER 

JA AF 78 
44 

4D 

29 

D 04 

38 84 

29 

28 0 

29 

B7 

E2 (2 27 
09 

ci 

09 

EB 

2A F3 78 
9 


E5 
32 AF 78 
cD D4 27 
El 
D7 
c9 


PUSH AF ‚DIM-Zähler auf den Stack 

RST 18H ;Index >= Dimension 7 

JP NC, 273DH sJas SUBSCRIPT GUT OF RANGE - Error 
CALL  BBAAH ;Matrix-Offset * Dimension 

ADD HL, DE ı+ Index = neues Matrix-Offset 
DEC À salle Dimensionen verarbeitet? 
LD BH neuen Matrix-Öffset in BC 

LD GL 

JR NZ, 279AH ‚noch weitere Dimensionen, zuruck 
LD Ay (78AFH) ‚Typ laden (=Wertlänge) 

LD BH gneuen Matrix-üffset in BC 

LD GL 

ADD HL, HL ;Matrix-Öffset * 2 

SUR 4 ‚String oder Integer? 

JR C,27BDH ‚ga! 

ADD HL, HL ‚Matrix-üffset # 4 

JR 1, 27C2H seinf, Genauigkeit? ja-Sprung 

ADD HL, HL ‚Matrix-üffset * 8 (dopp. Gen. ) 
ÒR Á Integer oder dopp. Genauigkeit? 
JP PO, 27C2H gja! 

ADD  HL,BC ‚String, 3 * Matrix-Offset in HL 
POP BC ;Werte-Antangsadresse laden 

ADD HL,BC ‚Matrix-Offset addieren 

EX DE, KL =Element-Adresse, in DE übertr. 
LD HL, (78F3H) ;Programmzeiger laden 

RET ‚fertig 


FERE HEIE EAE dE AEE E 1E FE FEAE E F ER 


MEM - Funktion 
Größe des freien Speichers ermitteln 


XOR À iTyp-Byte = 0 (kein String!) 
PUSH HL iProgrammzeiger auf Stack 

LD (78AFH), A 

CALL  27D4H FRE aufrufen 

POP HL ‚Programmzeiger laden 

RST 18H nächstes Zeichen adressieren 
RET ifertig 


RR FE FE 1E FE FE IE E E AE HE HE E EE 


FRE - Funktion 
Größe des freien Speichers oder freien Stringbereichs 
ermitteln 
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27D4 
2707 
2708 
27DE 
z7DD 
ż7DF 


ZIE2 


27E5 
Z7EB 
2769 


ZIEC 
Z7ED 
Z7EE 
ZTEF 
27FB 
27F1 
27F2 


27F5 


27F8 
27F9 
27FA 
27FB 


2A FD 78 
ER 

21 08 88 
E7 

28 aD 

CD DA 29 


CD Eé 28 


2A AB 78 
EB 
2A D& 78 


7D 
93 
6F 
7C 
9A 
67 
(3 66 &C 


JA A6 78 


áF 


67 
C3 9A OA 


{D A9 79 
D7 
CD 26 25 
E5 
ż1 90 28 


LD 
EX 
LD 
RST 
JR 
CALL 


CALL 


LD 
EX 
LD 


LD 
SUB 
LD 
LD 
SBC 
LD 
JP 


HL, (78FDH) 
DE, HL 
HL,8 

20H 
NZ,Z7ECH 
ZIDAH 


28E6H 


HL, (78AQH) 
DE,HL 
HL, (78D6H) 


AsL 

E 

Lå 
ÅH 
AD 
HA 
BC56H 


sAnfangsadr. des freien Speichers 
sin DE 

;Stackpointer in HL 

‚Typ testen. String ? 

‚nein! 

‚Argument aus Zwischenspeicher und 
ıStringbereich iöschen 
‚Stringbereich umsortieren, über- 
‚flüssige Strings entfernen 
;Stringbereich-Anfang - I 

sin DE 

‚letztes freies Byte des Stringber. 
‚Differenz zwischen HL und DE 

;= Größe des freien Speichers oder 


ıdes freien Stringbereichs 
(MSB) 


IHL mit einf.Gen. in X, fertig 


RHEIN 


POS - Funktion 
ermittelt die Cursor-Position 


;Cursorposition laden 


Zahl als Integer {ohne Vorzeichen) in X 


LD A 178A6H) 
LD LÀ 

XOR À 

LD HA 

JP BAIAH 


Zahl in L 
Ap 
iH: 


HL als Integer in X 


RR 


USR - Funktion 
Aufruf einer Maschinenprogramm-Routine 

Als Parameter werden das Argument in X, der Typ in A 
und beı Strings die Adresse des Strings in DE übergeben. 


CALL 
RST 
CALL 
PUSH 
LD 


79A9H 
1BH 
232CH 
HL 

HL, B898H 
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;RAM-Erweiterungsausgang 
‚nachstes Zeichen im Programm 
‚Argument auswerten (in X) 
‚Programmzeiger auf den Stack 
;Rucksprungadresse auf Stack 


2889 
280A 
2880 
Z80E 
2818 


2813 
2814 
2815 
2818 


2819 
2814 
2816 
281F 
2828 
2822 
2823 


2828 
2829 
282C 
2820 
282E 
2802F 
2838 


2831 
2833 


E5 

3A AF 78 
Fa 
FE 83 

CC DA 29 


Fi 
ER 
2A 8E 78 
E9 


E5 

Eb 07 

21 A118 
4F 

86 08 
87 

CD 86 25 


Ei 
(9 


E5 
2A A2 78 
23 
7C 
B5 
Ei 


IE 16 
63 A2 19 


PUSH HL 

iD Ay i7BAFH) ‚Typ des Arguments laden 

PUSH AF sauf den Stack 

cP 3 ‚= String? 

CALL  2,29DAH} Ja, letzten String aus Zwischensp, 
‚und Stringbereich entfernen 

POP AF ‚Typ wieder laden 

EX DE, HL ‚Stringadresse in DE 

iD HL, (788EH) Startadresse der Masch.-routine 

JP iHL) ‚Routine anspringen 


RR AE E R AE EEE E EAE e ee 


Wert in gewünschten Typ umwandeln 
Eing.! A = Typ 

X = Ausgangswert 
usg.: X = Ergebnis im gew. Typ 


PUSH HL ıHL auf den Stack 

AND 7 i Typ=dopp. Gen, @ als Tab. ûffset 

LD HL, 18AIH ‚Sprungtabeile für Typumwandiung 

LD GA Tab.üffset (=Typ, außer bei dopp. ) 

LD 3,8 sin BC 

ADD HL, BC sauf Sprungtabellen-Anfang addieren 

CALL 2586H ‚nochmals addieren, Adresse laden 
und anspringen 

POP HL ;HL wiederherstellen 

RET fertig 


RÄT AEAEE d FE HERE AE AE FE EFE EAEE AE EFE EE EE HR E 


Prufen, ob Ausführung im DIRECT-Modus. 
wenn Ja, ILLEGAL DIRECT OPERATION - Error 


PUSH HL ıProgrammzeiger auf den Stack 

LD HL, (78A2H) Aktuelle Zeilennumsmer laden 

INC HL ı=FFFF ? 

LD ÀH st=Direkt-Mode) 

ÖR Lo 

POP HL ‚Programmzeiger laden 

RET NZ jnein, zurück 

LD E,16H Fehlercode in E 

JP 1942H ILLEGAL DIREKT OPERATION ausgeben 


RR 
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2836 
2B3F 
2942 
2843 
2844 
2845 
2846 


2849 
284A 
2848 
2B4C 
284D 


2858 
2851 
2852 
2855 
2856 


2857 
285A 
285D 
285E 
285F 
2868 
2861 
2862 


2864 


CD BD OF 
CD 65 28 


cD DA 29 
Bi 2B ZA 
c5 
TE 
23 
E5 
CD BF 28 


A 


El 
4E 
23 
46 
CD 5A 28 


E5 
oF 
CD CE 29 
Di 
(9 


CD BF 28 
21 D3 78 
E5 
77 
23 
73 
23 
72 
Ei 
c? 


STR$ - Funktion 
Zahl in String umformen 


CALL  BFRDH Zahl in String umformen 

CALL 2865H ‚String in Zwischenspeicher 
und X übernehmen 

CALL  29DAH ‚String aus Zwischenspeicher lösch. 

LD BC, ZAZBH ;Rucksprungadresse setzen 

PUSH BC 

LD A, (HL) ‚Stringlänge in A 

ING HL ‚Stringzeiger + 1 

PUSH HL ‚Stringzeiger auf den Stack 

CALL  Z8BFH ‚Platz für String im Stringbereich 
reservieren 

POP HL ‚Stringzeiger laden 

LD C, (HL) i5Stringadresse laden 

INC HL stin BC) 

LD B, (HL) 

CALL  285AH Adresse im Stringbereich in vorl. 
ıZwischenspeicher übertragen 

PUSH HL ;Zwischenspeicheradresse auf Stack 

LD ET.) ıStringlänge ini 

CALL  29CEH ‚String in Stringbereich übernehmen 

POP DE Zwischenspeicheradresse laden 

RET ;Zwischenspeicher in X, fertig 


TITTEN 


‘ Adresse in Stringbereich ermitteln und im vorläufigen 


Zwischenspeicher ablegen 

Eing.: A = Stringlänge 

Ausg.: DE = Stringadresse im Stringbereich 
HL = Adresse des vorläufigen Zwischenspeichers 
Stringlänge+Stringadr. im vorl. Zwischenspeicher 


CALL  28BFH ;Platz im Stringbereich reservieren 
LD HL, 78D3H ;Adr. des vorl. Zwischenspeichers 
PUSH HL sauf den Stack 

LD (HL); À ‚Stringlänge eintragen 

INC HL ıAdr. Zwischenspeicher + I 

LD {HL),E ‚Stringadresse eintragen 

INC HL 

LD (HL), D 

POP HL ‚Adresse d. Zwischenspeichers laden 
RET 
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2865 
2866 
28368 
2869 
2B6A 
2866 
286D 
286E 
286F 
2870 
2872 
2873 
2875 
2876 
2878 
287A 
287D 


287E 
287F 
2888 
2881 
2884 
2887 
2888 
z889 
288C 
288F 
2891 
2894 
2897 
289A 
2898 


289F 


m ın ra 
Geri 
Da 
bo 


BE FF 
23 

7E 

ac 

87 

28 86 
BA 

28 03 
BE 

20 F4 
FE 22 
cC 78 1D 
E3 


23 

ER 

79 

CD 5A 28 
11 D3 78 
JE 

D5 

2A B3 78 
222179 
JE 83 

J2 AF 78 
cD D3 89 


11 DS 78 
DF 
22 B3 78 
El 
7E 
ca 


RER 


Stringkonstante in Zwischenspeicher und X übernehmen 
Eing.: HL = Zeiger auf die Stringkonstante 
Stringlänge und Stringadresse in Zwischen- 
speicher, Adresse des Zwischenspeicher in X 


Ausg. : 


DEC 
LD 
LD 
PUSH 
LD 
INC 
LD 
INC 
OR 
JR 
{pP 
JR 
cP 
JR 
CP 
CALL 
EX 


Int 
EX 
LD 
CALL 
LD 
DEFB 
POP 
LD 
LD 
LD 
LD 
CALL 


LD 
RST 
LD 
POP 
LD 
RET 


HL 

B, 22H 
D,B 

HL 

C OFFH 
HL 

As (HL) 
c 

À 

2, 2878H 
D 

2, 2878H 
B 

NZ, 285CH 
7, 1D78H 
(SP), HL 


HL 

DE, HL 

AC 

285AH 

DE, 78D3H 
JEH 

DE 

HL, (78B3H) 
(7921H), HL 
Ars 
(T8AFH),A 
BID3H 


DE, 78D6H 
18H 
(7883H), HL 
HL 

A (HL) 

NZ 
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‚Stringzeiger - 1 

sTrennzeichen 1 = ’"' 

ı= Trennzeichen ? 

‚Stringzeiger - I auf Stack 
Zeichenzähler = -1 
‚Stringzeiger # 1 

Zeichen laden 

sZeichenzähler + I 

Zeilenende ? 

1Ja, Stringende 

;= Trennzeichen 2 ? 

13a, Stringende 

;= Trennzeichen i ? 

jnein, nächstes Zeichen 

letztes Zeichen '"’ 7 

ija; nächstes Zeichen 
sStringzeiger - 1 laden, 

iderz. Stringzeiger auf Stack 
iStringzeiger +t i 

sin DE 

‚Stringlänge in A 

‚String in vorl. Zwischenspeicher 
sAdr. des vorl. Zwischenspeichers 
+LD A,BDSH Dummy-Befehl 
‚Stringzeiger in DE laden 
ıMomentane Zwischensp.adr. laden 
sin X eintragen 

ıTyp = String setzen 


ıVorläufigen Zwischenspeicher in 
‚nachsten Zwischenspeicherplatz 
;Zwischenspeicher voll? 


‚nächste Zwischenspeicheradr. merk. 
;Programszeiger laden 

‚nächstes Zeichen laden 

Zw.Sp. nicht voll, fertig 


zahl 
28A3 


2BAb 
28A7 
2BAA 
28AD 
2888 
28B1 
2882 
2883 
Z8R4 
2887 
2889 
288C 
zBBD 


z8BF 
2808 
2801 
2802 
2863 
2816 
2867 
2BCA 
Z8CB 
2861 
28CE 
2BCF 
2808 
28D1 
2803 


je. IE 
63 A2 19 


23 

cD 65 28 
cD DA 29 
CD C4 89 
14 

15 

cB 

BA 

CD 2A 03 
FE ØD 

cC O3 2i 
83 

18 F2 


B7 

BE 

Ft 

F5 

2A AB 78 
ER 

2A Dé 78 
Zr 

4F 

Ba FF 
89 

23 

DF 

J38 97 

zz Dó 78 


STRING FORMULA TOO COMPLEX - Error 


LD 
JP 


E, IEH 
19A2H 


- 


Fehlercode in E 
Fehlermeldung ausgeben 


RR: 


String ausdrucken 
Eing.: HL = Stringadresse 
String durch >=? oder BB abgeshlossen 


ING HL ‚Stringadresse + I 

CALL 2865H String in Zwischenspeicher + X 
CALL  ZIDAH ‚String aus Zwischenspeicher lösch. 
CALL  BICHH ;Stringadr. in BC, Länge in D 
INC D ıStringlänge + 1 

DEC D salle Zeichen ausgegeben? 

RET Z ida, fertig 

LD À {BC Zeichen laden 

CALL  B3ZAH sund ausgeben 

CP 2DH ‘Carriage Return ? 

CALL  Z,2103H şJa; uber RAM-Ausgang 79DOH zur. 
INC BE ‚Stringadresse + I 

JR 28BiH ;nächstes Zeichen 


RITTER 


Platz fur einen String im Stringbereich reservieren 
Eing.: A = Stringlänge 
Ausg.: DE = Adresse im Stringbereich 





OR A ;PACK-Flag löschen 

DEFB BEH iLD C OFiH Dummy-Befehl 

POP AF sPACK-Flag vom Stack laden 

PUSH AF sauf den Stack legen 

LD HL, (7BABH) Anfang des Stringbereichs - 1 | 
EX DE,HL iin DE | 
LD HL, (78D6H) Zeiger auf i.freies Byte im Strber 

GPL iStringlänge komplementieren 

LD CÀ sund in RC 

LD B, OFFH 

ADD HL, BC ;Stringbereichs-Zeiger - Länge 

ING HL ı+ 1 (Ergebniskorrektur) 

RST 18H ı« Anfang des Stringbereichs - 1? 

JR C, 2BDAH 13a, Stringbereich packen 

LD {78D6H) HL neuen Stringbereichszeiger speich. 


70 


2806 
28D7 
28D8 
4809 


28DA 
28D% 
290D 
28E0 
28E1 
28E2 
285 


2866 
28E9 
28EC 
28EF 
28F0 
2BF 3 


2BF4 
28F7 
ZBFB 
2UFB 
BFC 
z8FD 


2708 


203 
2906 
287 
270A 
2908 
298c 
299E 
2790F 
2918 
29ii 


ER 

Fl 

{9 

Fi 

IE 1A 

CA AZ 19 
BF 

F5 

Bi Ci 28 
c5 

2A Bi 78 
22 D6 78 
21 00 08 
E5 

ZA AB 78 
E5 

21 85 78 
EB 

żA B3 78 
EB 

DF 

8i F7 28 
Ct 4A 29 
2A FI 78 
ER 

2A FB 78 
EB 

DF 

28 13 

TE 

23 

23 

23 


INC 
EX 

POP 
RET 


HL 
DE,HL 
Ar 


‚+ 1 = Stringadresse im Str. bereich 
sın DE übertragen 

Stringiänge wieder laden 

‚fertig 


IRRE 


Stringbereich packen 


POF 
LD 
JP 
cP 
PUSH 
LD 
PUSH 


LD 
LD 
LD 
PUSH 
L5 
PUSH 


AF 

E, iAH 

Zu 19AZH 
À 

AF 

BC, 28C1H 
BC 


HL, (78B1H) 
(78D6H) HL 
HL; 8 

HL 

HL, (78ABH) 
HL 


‚PACK-Flag iaden 

Fehlercode in E 

‚bereits gepackt, GUT OF STRING SPC 
ıPACK-Flag setzen 

‚und auf den Stack 
;Rucksprungadresse setzer; 

‚nach dem Packen erneut versuchen, 
‚ob genügend Platz vorhanden. 
‚Stringbereichszeiger = RAM-Endadr. 


;höchster Stringzeiger = B 

sauf den Stack 

;höchster String = Anf Stringber. 
sauf den Stack * 


Höchsten String unter Zwischenspeicher-Strings suchen 


LD 
EX 
LD 
EX 
RST 
LD 


JP 


HL, 7885H 
DE, HL 

HL, (7883H) 
DE, HL 

18H 

RC, 28F7H 


NZ, 294AH 


‚Anfang Zwischenspeicher in HL 


‚Adr. nächster freier Zwischen- 
ıspeicherplatz in DE 
‚Zwischenspeicher abgearbeitet? 
;Rucksprungadresse fur 

‚nachsten Zwischenspeicherpl. laden 
‚nein, höchsten String aktualis, 


Höchsten String unter einfachen Variablen suchen 


LD 
EX 
LD 
EX 
RST 
JR 
LD 
INC 
INC 
INC 


HL, (78F9H} 
DE, HL 

HL, {(78FBH) 
DE, HL 

18H 

2, 2921H 

A (HL) 

HL 

HL 

HL 
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sAnfadr. der Var. Tabelle in HL 
iEndadr. der Var. Tabelle in DE 


Ende der Variablen-Tabelle? 
Ja, Matrizen untersuchen 
;Typ aus Var.Tabelle laden 
iVar. Tab. -Adresse auf Wert 


2912 
2914 
2716 
2919 
291A 
291R 


FE 83 
28 84 

CD AR 29 
AF 

5F 

16 88 


CP 
JR 
CALL 
XOR 
LD 
LD 


3 

NZ, 291AH 
294BH 

A 

EÀ 

D,8 
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iStringvariable? 

‚nein! 

jhöchsten String aktualisieren 

A = B,damit Zeiger nicht erh.wird 
Typ in DE übertragen 


291D 
291E 


2928 
2721 
2922 
2925 
2926 


2927 


292A 
2928 
292C 


292F 
2930 
2931 
2933 
2935 
2738 
2939 
293A 
293 
2930 
293E 
293F 
2940 
2943 
2944 
2745 
2947 


294A 
2948 
294C 
2940 
294E 
2974F 
2730 
291 
2752 


19 
18 E6 


Ci 
EB 
2A FD 78 
EB 
DF 
CA 6B 29 


7E 
23 
GD C2 09 


£5 

89 

FE 83 

20 EB 
22 D8 78 
Ei 

4E 

BA 20 
87 

89 

23 

EB 

2A D8 78 
EB 

DF 

28 DA 


8i 3F 29- 


ADD 
JR 


HL, DE 
ż9B6H 


‚Adresse Var. Tab. + Typ (Länge) 
‚nächsten Eintrag 


Höchsten String in Matrix-Tabelle suchen 


POP 
EX 
LD 
EX 
RST 
JP 


LD 
INC 
CALL 


PUSH 
ADD 
CP 
JR 
LD 
POP 
LD 
LD 
ADD 
ADD 
INC 
EX 
LD 
EX 
RST 
JR 
LD 


BC 

DE, HL 

HL, (78FDH) 
DE, HL 

18H 

2, 296BH 


As (HL?) 
HL 
BICZH 


HL 

HL, BC 

3 

NZ, 2928H 
{78D8K) ‚HL 
HL 

C (HL) 
2,8 

HL, BC 

HL, BC 

HL 

DE, HL 

HL, (78DBH) 
DE,HL 

18H 
1,2921H 
BC, 293FH 


‚Stack korrigieren 
Endadr. Matrix-Tabelle in DE 


jEnde erreicht ? 

Ja, höchsten String an nächst 
‚höhere Stelle im Stringbereich 
;Typ der Matrix laden 
;Tabellenadresse + I 
;Matrixlänge in BC 
Tabellenadresse auf DIM-Zähler 
;Tabellenadresse auf Stack 
‚tMatrixlänge = Anfang der n.Matrix 
‚String-Matrix ? 

‚nein, nächste Matrix 

;Adr. der n. Matrix speichern 
Adresse DIM-Zähler laden 
;DIM-Zähler laden 


sauf Adresse DIM-Zähler 2% addieren 
it I = Wertadresse der Matrix 

sAdr. der n. Matrix in DE 

‚Matrix vollständig bearbeitet? 


iJa, nächste Matrix 
‚nein, Rucksprungadresse laden 


String mit bis jetzt höchstem String vergleichen und, 
wenn im Stringbereich höher, diesen ersetzen. 


PUSH 
XOR 
OR 
INC 
LD 
INC 
LD 
ING 
RET 


BC 

A 

(HL) 
HL 

E, (HL) 
HL 

D, (HL) 
HL 

Z 
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;Rucksprungadresse auf Stack 
ıStringlänge = 8 ? 


iStringzeiger auf Stringadresse 


;Stringadresse laden 


ıStringzeiger + { 
ıStringlänge = 8, fertig! 


2953 
2954 
2953 
2958 
2959 
295A 
ZB 
295C 
293D 


anf 


2968 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 


2969 
296A 


2968 
296C 
2960 
296E 
2996F 
2970 
2971 
2972 
2973 
2974 
29753 
2976 
2977 
2979 
297A 
297B 


44 
4D 
2A D& 78 
DF 
68 
69 
D8 
Ei 
E3 


DF 


E3 


E5 
68 
69 
Do 
ti 
Fi 
Fi 
£5 
D5 


c3 
c9 


Di 
Ei 
7D 
B4 
c8 
2B 
46 
2B 


E5 
2B 


26 0 


58 
59 


LD 
LD 
LD 
RST 
LD 
LD 
RET 
POP 
EX 


RST 


EX 


PUSH 
LD 
LD 
RET 
POP 
POP 
POP 
PUSH 
PUSH 


PUSH 
RET 


B,H 

GL 

HL, (78D6H) 
18H 

HB 

LC 

c 

HL 

(SP) HL 


18H 
(SP) HL 


HL 
HB 
LC 
NC 
RC 
AF 
AF 
HL 
DE 


BC 


‚Stringzeiger in BC 


‚Stringadresse > Stringber.-Zeiger? 
‚(String schon neu einsortiert) 
‚Stringzeiger wieder in HL 


jja, fertig! 

}Rucksprungadresse in HL 

Adresse des höchsten Strings laden 
;Rucksprungadresse wieder auf Stack 
jzu untersuchender String höher als 
jhöchster String 7 

Adresse des höchsten Strings auf 
Stack, Rucksprungadresse laden 
;Rucksprungadresse wieder auf Stack 
‚Stringzeiger wieder in HL 


jnein, fertig! 
jRucksprungadresse in BC 
Adresse und Zeiger des höchsten 
‚Strings vom Stack holen 

Zeiger und Adresse des gerade 
suntersuchten Strings als neuen 
jhöchsten String auf Stack 
jRucksprungadresse auf Stack 
fertig 


Höchsten String einsortieren 


POP 
POP 
LD 
OR 
RET 
DEC 
LD 
DEC 
LD 
PUSH 
DEC 
LD 
LD 
ADD 
LD 
LD 


DE 

HL 

GLIS 

H 

2 

HL 

B: (HL) 
HL 

£, (HL?) 
HL 

HL 

L, (HL) 
H,8 
HL, BC 
D,8 
EC 
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‚Adresse des höchsten Strings laden 
sZeiger des höchsten Strings in HL 
sZeiger = 8 ? 

stalle Strings einsortiert) 

ija; fertig! 

iStringzeiger auf Stringadresse 
‚Stringadresse laden 


;Stringzeiger auf den Stack 
ıStringlänge laden 
sinHL 


st Stringadresse 
ıStringadresse in DE 


298F 
2998 
2991 
2994 


2998 


29% 
2979D 
299E 
29A1 
29A2 
29A3 
29A5 
27A8 


29AB 
29A 
2IAF 


2988 
2783 
2984 
2987 


2% 
44 
4D 
2A D6 78 
CD 58 19 


El 
71 
23 
78 
69 
68 
2B 
(3 E? 28 


c5 
E5 
2A 21 79 
E3 


CD IF 24 
E3 


CD F4 BA 
TE 

E5 

2A 21 79 
E5 

84 

iE iC 

DA A2 19 
cD 57 28 


Di 
CD DE 29 
E3 


cD DD 29 
E5 
zA D4 78 
EB 


DEC 
LD 
LD 
LD 
CALL 


POP 
LD 
INC 
LD 
LD 
LD 
DEC 
JP 


HL 

RH 

CL 

HL, (7806H) 
1938H 


HL 
(HL) 
HL 
(HLI,B 
LC 
H, B 

HL 
28E9H 


IHL = Stringende 
sin BC 


‚Zeiger auf Stringbereich laden 
‚String unterhalb des String- 
‚bereich-Zeigers abpeichern 
‚Stringzeiger wieder laden 
‚neue Stringadresse speichern 


und in HL 


17 1 = neuer Stringbereich-Zeiger 
abspeichern und weiter 


FFE HIE AEE IEE dE AE AE FE HE IE FEAE HEE AE AE FE HELE AE EAE FE AE AE AEE HE HE EEE EE 


String-Verknüpfung 
PUSH BC 

PUSH HL 

LD HL, (79214) 
EX (5P) HL 
CALL  249FH 

EX (SP) HL 
CALL  BAF4H 

LD As (HL) 
PUSH HL 

LD HL, (7921H) 
PUSH HL 

ADD (HL) 

LD E: iCH 

JP Cs 19A2H 
CALL 2857H 

POP DE 

CALL 29DEH 

EX (SP) HL 
CALL  29DDH 
PUSH HL 

LD HL, (78D4H) 
EX DE,HL 
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Letzte Priorität auf Stack 
Programmzeiger auf Stack 

sl. Stringzeiger in HL 
}Programazeiger laden 

sl. Stringzeiger auf Stack 

j2. Operanden bestimsen 
‚Programmzeiger auf Stack 

ii. Stringzeiger laden 

+2. Öperand String? nein - TM-Error 
1. Stringlänge laden 

si. Stringzeiger auf den Stack 

12. Stringzeiger laden 

sund auch auf den Stack 
ıStringlängen addieren 

Fehlercode in E 

‚> 256? ja-STRING TOO LONG - Error 
‚Platz für verknüpften String 
schaffen, in vorl.Zwischensp.eintr 
2. Stringzeiger wieder laden 

2. String aus Zwischensp. austragen 
2. Stringzeiger auf Stack 

ı1. Stringzeiger laden 

si. String aus Zwischensp. entfernen 
ii. Stringzeiger auf den Stack 
ıStringadr. aus vorl.Zw.speicher 1. 
sin DE 


2988 
29BB 
ZIBE 
271 
2902 
2963 


296 
2967 


2908 
2909 
2ICA 
29CB 
29CC 
29CD 
2%CE 
29CF 
2708 
291 
2902 
23 
2704 
2905 


2907 
29DA 
29DD 
27DE 


ZI 
2%2 


CD CA 29 
CD 66 29 
214923 
EJ 
E5 
C3 84 28 


Ei 
E3 


7E 
23 


23 


2 
2D 


12 
83 
13 
18 FB 


CD F4 BA 
2A 21 79 
EB 

cD F5 29 


EB 
ca 


CALL  29C6H si. String in Stringbereich übertr. 
CALL  29C4H $2. String in Stringbereich übertr. 
LD HL 2349H }Rucksprungadresse laden 

EX {SP),HL imit Programazeigeer tauschen 

PUSH HL ‚Programmzeiger wieder auf Stack 
JP 2884H Vorl. Zwischenspeicher in X und 


;Zwischenspeicher übertragen 
FEIER AEEA IE FE AE E AE HEHEA FE AE AE AE AEAEE FE HE FEAE AE AEH EE AEAEE E 


String in Stringbereich übertragen 


POP HL ;Rucksprungadresse laden 

EX (SP) HL ‚Stringzeiger laden, 
;Rucksprungadresse auf Stack 

LD A, (HL) ;Stringlänge laden 

INC HL iStringzeiger + I 

LD C (HL) ‚Stringadresse laden 

INC HL 

LD B, (HL) 

LD L;A ‚Stringlänge in L 

INC L iti 

DEC L ‚Stringlänge - I, =8 ? 

RET Z ija, fertig! 

LD À, (BC) Ein Zeichen in Stringbereich 

LD (DE) A 

INC BC ‚Stringzeiger + 1 

INC DE Adresse Stringbereich + 1 

JR 29CFH nächstes Byte 


EEIEIEE MIEI EE AE FE EAE EAEE AEE E AEE FEE EE EE EEEE E HE E 


String aus Zwischenspeicher und Stringbereich entfernen 


CALL  BAF4H ‚kein String in X? ja-TYPE MISMATCH 

LD HL, (7921H) sStringzeiger aus X laden 

EX DE, HL sin DE 

CALL  29F5H {String zuoberst im Zw. speicher? 
sja - entfernen! 

EX DE, HL ‚Stringzeiger in HL 

RET NZ ‚nicht entfernt? fertig! 


String aus Stringbereich entfernen 
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29E3 
2964 
29E5 
29E6 
29E7 
29E8 
29ER 
ZC 
29EE 
29EF 
2978 
29F3 
29F4 


29F5 
29F8 
2979 
29FA 
2IFB 
Zt 
29FD 
29FE 
29FF 


2A02 


30 
59 
18 
4E 
2A D6 78 


28 05 

47 

87 

22 D6 78 
El 

c9 


2A B3 78 


2B 


22 B3 78 


(9 


8i F8 27 
c5 
cD D7 29 


AF 
57 
7E 
B7 
(9 


PUSH 
LD 
LD 
DEC 
LD 
LD 
RST 
JR 
LD 
ADD 
LD 
POP 
REET 


DE 

D,B 

EC 

DE 

Cs (HL) 

HL, (78D6H) 
18H 

NZ, 29F3H 
BA 

HL, BC 
(78D6H) „HL 
HL 


‚Stringzeiger auf den Stack 
ıStringadresse in DE 


{i 

iStringlänge in C 
‚Stringbereichs-Zeiger in HL 

;= Stringadresse - 1 ? 

‚nein, fertig! 

‚B=® 

Stringbereichs-zeiger + Länge 
$= neuer Stringsbereichs-Zeiger 
‚Stringzeiger laden 


EAE FEIE JEJEJE IE HE AE IE AE FEAE FEAE AE AE AE AE FEIE- E AEAEE AE AE EEE HEE EEE 


String aus Zwischenspeicher entfernen 


LD 
DEC 
LD 
DEC 
LD 
DEC 
RST 
RET 
LD 


RET 


HL, (78B3H) 
HL 

B, (HL) 

HL 

C (HL) 

HL 

18H 

NZ 
{78B3H) , HL 


nächste Zwischenspeicheradr. laden 
u | 


Adresse des letzten Strings laden 


Zeiger auf Anfang des letzt.Eintr. 
j= Stringzeiger 

‚nein! 

neuen Zeiger abspeichern, 

letzter Eintrag ist gelöscht 


FEIE HEIE FEAE E FEFE HEE AE FE E FE BE HEHE FEFE AE FEAE AEAEE FEAE IREE EEEE E 


ermittelt die Länge eines Strings 


LEN - Funktion 
LD BC, 27F8H 
PUSH BC 

CALL 29D7H 
XOR A 

LD DA 

LD A (HL) 
OR À 

RET 


‘Rucksprungadresse setzen 


sArgument-String aus Zwischen- 
‚speicher + Stringbereich entfern. 
D=8 


ıStringlänge laden 
sund testen 
weiter bei 27F8H 


FHHEIE AEAEE HEEE AEAEE AEAEE dE IEEE AEEA EE AEE EEEE EE 
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ZABF 
2412 
2A13 
2AL6 
2419 
2A1A 
2A1B 
2Alt 
2AiD 
ZAIE 


2AF 
2A21 


2AA 
2427 
2AZA 
2A2B 
2R2C 


AZF 
2438 
zA31 
2A32 
2A35 
2A36 
2437 
238 
2A3B 
2A3C 
ZA3D 


8i F8 27 
c3 
CD 87 2A 
CA AA IE 
23 
3E 
23 
36 
1A 
c9 


3E Bi 
cD 57 28 


CD 1F 28 
2A D4 78 
73 
Ci 
C3 84 28 


D7 
CF 
28 
cD iC 2B 
D5 
CF 
2C 
cD 37 23 
CF 
29 


E3 


ASC - Funktion 
ermittelt ASCII-Code des 1. Zeichens eines Strings 
BC, 27F8H 


LD 
PUSH 
CALL 
dP 
INC 
LD 
INC 
LD 
LD 
RET 


BC 
2A07H 
Z, 1E4AH 
HL 

E (HL) 
HL 

D, (HL) 
À, (DE) 


;Rucksprungadresse setzen 


;Stringlänge = 8 ? 

Ja» FUNCTION CODE - Error 
‚Stringzeiger auf Stringadresse 
‚Stringadresse laden 


ji. Zeichen laden 
weiter bei 27F8H 


RHEIN 


CHR$ - Funktion 
Erzeugt aus dem Argument (ASCII-Code) einen I-Byte String 


LD 
CALL 


CALL 
LD 
LD 
POP 
JP 


Åi 
2857H 


2BIFH 


HL, (78D4H) 


(HLI,E 
BC 
2884H 


;Stringlänge = 1 

‚Platz im Stringbereich reservieren 
‚und in vorl.Zwischenspeicher eintr 
‚Ganzz.Wert des Arguments in E 
‚Stringadr. aus vorl.Zw.speicher ]. 
Zeichen dort abspeichern 
;Rucksprungadresse entfernen 

Vorl. Zwischenspeicher nach X und 
sin Zwischenspeicher übertragen 


RR HIHI 


STRING$ - Funktion 
erzeugt einen String aus n gleichen Zeichen 


RST 
RST 
DEFB 
CALL 
PUSH 
RST 
DEFB 
CALL 
RST 
DEFE 
EX 


18H 
8 

En? 
2B1CH 
DE 

8 


79 
? 


2337H 
8 

T? 
(5P) HL 


ib - 


nächstes Zeichen 
sfolgt ein ’t’ ? 


;Stringlänge auswerten und in E 
‚Stringlänge auf Stack 
folgt ein Komma ? 


sleichenausdruck auswerten 
sfolgt ein ’)’ ? 


iStringlänge in L laden 
;Programmzeiger auf den Stack 


ZAJE 
ZASF 
ZA4B 
242 
2A45 
2A47 
ZA4A 
ZA4B 
244C 
ZA4D 
ZA4E 
2AS1 
252 
2453 
2A54 
2A55 
2457 
ZASA 
2ASB 
245C 
2A5D 
ZAF 


2h61 


2Ab4 
2465 


2A66 
2A67 
2A6B 


2869 
2A6A 
2A6B 
2A6C 
2AGE 
AGF 
2A70 
2A72 


E3 

E7 

285 

CD IF ZB 
18 03 

cD 13 2A 
Di 

F5 

F5 

7B 

CD 57 28 
5F 

Fi 

it 

1D 

28 D4 

zA D4 78 
77 

23 

1D 

20 FB 

18 CA 


cD DF 2A 


E3 


4F 


E5 


E5 
7E 


38 82 
78 
11 
BE 88 


PUSH HL ‚Stringlänge wieder auf den Stack 
RST 20H ıZeichenausdruck = String ? 

JR 2, ZAh7H iJa! 

CALL  ZRIFH ‚nein, ganzz. Wert in A 

JR ZA4AH ‚weiter bei ZA4AH 

CALL  2A13H şi. Zeichen des Strings in À 

POP DE iStringlänge in E 

PUSH AF sZeichen żŻx auf Stack 

PUSH AF 

LD AE ‚Platz ım Stringbereich reservieren 
CALL 2857K ‚String in vorl. Zwischenspeicher 
LD EsA ‚Stringlänge in E 

POP AF Zeichen wieder laden 

ING E ‚Stringlänge = 8 ? 

DEC E 

JR 2, 2AZBH iJa, vorl.Zw.sp. in Zw.speicher + X 
LD HL, (78D4H) ‚Stringadresse laden 

LD (HL) A Zeichen übertragen 

INC HL ;Stringbereichs-Adresse + I 

DEC E iStringlänge - 1, =8 ? 

JR NZ, 2ASAH jnein, nächstes Zeichen! 

JR 2AZB ‚vorl.Zw.sp. in Zw.speicher u. X 


TRIER E 


LEFT$ - Funktion 
linken Teil eines Strings abtrennen 


CALL  ZADFH ‚Programmzeiger in HL, ’)’ testen, 
;2. Argument in B 

XOR À iLeft-Ööffset = B (f.RIGHT$ u.MID$) 

EX (SP) HL iProgrammzeiger auf Stack 
;Stringzeiger laden 

LD GA jLeft-Öffset in € 

DEFB 3EH ILD A DESH Dumay-Befehl 

PUSH HL ;Stringzeiger auf Stack 
‚(Stackkorrektur bei USING) 

PUSH HL ‚Stringzeiger auf Stack 

LD As (HL) iStringlänge laden 

CP B 3< 2. Argument? 

JR C: 2470H iJa, Erg.stringl.=Stringlänge 

LD AB ‚nein, Erg.stringlänge = 2.Argument 

DEFB 11H ıLD DE,BOBEH Dummy-Befehl 

LD C0 iLeft-Offset = 8 

PUSH BC iLeft-Offset auf Stack 
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2h73 
ZAT 
2A77 
2A78 
2479 
ZATA 
2A 
2ATC 
2A7D 
2ATE 
2A88 
2A81 
2A8? 
2483 
2A3b 
2487 
ZABA 
zZA8B 


2ABE 


2A91 


2A94 
2495 
2A96 
2A97 
2498 


2A7AÀ 
2A9B 
2A% 
2A9F 


ZAAI 
ZAA4 


CD BF 28 
ci 

Ei 

E5 

23 

4b 

23 

bb 

68 

06 BB 
u 

44 

aD 

CD 5A 28 
eF 

CD CE 29 
Di 

CD DE 29 


C3 B4 28 


CD DF 2A 


Di 
D5 
1A 


18 CR 


EB 
TE 
CD E2 2A 
B4 
85 
CA 4A 1E 
65 


CALL 
POP 
POP 
PUSH 
INC 
LD 
INC 
LD 
LD 
LD 
ADD 
LD 
LD 
CALL 
LD 
CALL 
POP 
CALL 


JP 


28BFH 
BC 

HL 

HL 

HL 

B, (HL) 
HL 

Hs (HL) 
LB 
3,8 
HL, BC 
B,H 
GL 
285AH 
LÀ 
29CEK 
DE 
29DEH 


2884H 


Platz f.Ergebnis im Stringber.res. 
iLeft-Offset wieder laden 
ıStringzeiger laden 

sund wieder auf den Stack 
ıStringzeiger auf Stringadresse 
;Stringadresse in HL laden 


siMSB) 
s{L5B) 
jLeft-Offset auf Stringadr.addieren 


jErgebnis-Stringadresse in BC 


;Ergebnis-String in vorl.Zw.speich. 
jErg.Stringlänge in L 
jErgebnis-String in Stringbereich 
;Stringzeiger in DE 
sArgument-String aus Zw.speicher 
sund Stringbereich löschen 
;Vorl.Zw.speicher in Zw.speicher +X 


FEAE EE AEAEE EAE AE AE AE H FE AEAEE EAE JE AE AEE E ME E FEAE dE E EE 


RIGHT$ - Funktion 
rechten Teil eines Strings abtrennen 


CALL 


POP 
PUSH 
LD 
SUB 
JR 


2ADFH 


DE 
DE 
A, (DE) 
B 
2A6SH 


;Prograamzeiger in HL; °)? testen, 
32. Argument in B 

iStringzeiger laden 

sund wieder auf Stack 
;Stringlänge laden 

‚= 2. Argument = Left-Öffset 
weiter bei LEFT$ 


FER IAE EAEE E EJE IE AERE AEAEE HE EAE AEAEE E EAE FEAE EEE EAE 2E FE E E 


MID$ - Funktion 
mittleren Teil eines Strings abtrennen 


EX 
LD 
CALL 
INC 
DEC 
JP 
PUSH 


DE, HL 
As (HL) 
2AE2H 
B 

B 

Z, 1E4AH 
BC 
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iProgrammzeiger in HL 
Zeichen laden 

+2. Argument in B 

‚2. Argument = 8 ? 


33a, FUNCTION CODE - Error 
i2. Argument auf den Stack 


2AAS 
ZAAT 
ZART 
ZAAB 
2AAC 
ZAAD 
ZABO 
ZABÍ 
ZABZ 
ZABI 


ZABA 
2AB7 
2ABB 
ŻAB? 
2ABA 
ZABC 
ZABD 
ZABE 
ZABF 
ZACH 
2AC1 
2AC2 
2AC3 
2AC4 


2AC5 
2AC8 
2ACB 
2ACC 
2ACD 
2ACE 
2ACF 
ZADO 
ZADI 
2AD2 
ZADI 
2AD4 
ZADS 


1E FF 

FE 29 
28 05 

CF 

2C 

cD iC 2B 
CF 

29 

Fi 

E3 


Di 69 2A 
c5 

3D 

BE 

06 B 
Da 

4F 

7E 

91 

BB 

47 

D8 
43 

c9 


CD 87 2A 
CA FB 27 
5F 
23 
TE 


23 
6b 
GF 
E5 


19 
46 
72 
E3 


LD 
cP 
JR 
RST 
DEFB 
CALL 
RST 
DEFB 
POP 
EX 


LD 
PUSH 
DEC 
CP 
LD 
RET 
LD 
LD 
SUB 
CP 
LD 
RET 
LD 
RET 


E,BFFH 
»y2 

2, ZABOH 
8 


Jot 
? 


ZBICH 
8 

EJ? 

AF 

(SP) HL 


BC, 2Ab9H 
BC 

A 

(HL) 
B,8 
NC 
CA 

Às (HL) 
c 

E 

BrA 

c 

BE 


3. Argument = 255 (Std.=Reststring 
‚)’ als Abschluß der Parameter? 
Ja, nur 2 Argumente 

‚nein, folgt ein Komma ? 


‚3. Argument auswerten (in E) 
Jetzt muß ’)’ folgen 


2. Argument in A laden 
‚Programmzeiger auf Stack 
‚Stringzeiger laden 
;Rucksprungadresse setzen 

‚(Sprung in LEFT$) 

‚2. Arg. - 1 = Left-üffset 
‚Stringlänge { 2. Argument ? 
jErgebnis-Stringlänge = 8 

Ja, Ergebnis-String ist leer 
sLeft-öffset in C 

ıStringlänge laden 

ı Left-Offset 

1< 3. Argument ? 

jErg.Stringlänge = Differenz 

iJa, ges. Reststring=Ergebnis-String 
nein, 3. Argument = Erg.stringing. 
weiter bei LEFT$ 


FEFEFE HEFEI HEIE FEAE AE IE FE HEFE FE IE AE FE FEAE AEE AE EAEE AEE E EAEE EE E 


VAL - Funktion 
String in Zahl umwandeln 


CALL 
JP 
LD 
INC 
LD 
INC 
LD 
LD 
PUSH 
ADD 
LD 
LD 
EX 


2AB7H 
Z, 27F8H 
EsA 

HL 

Às (HL) 
HL 

Hs (HL? 
LÀ 

HL 

HL, DE 
B, (HL) 
{HL),D 
{SP}, HL 
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‚Stringlänge Argument = B ? 
ıJa, B als Integer in X, fertig 
‚Stringlänge in E 

‚Stringzeiger + 1 
iStringadresse in HL 


‚Stringadresse auf den Stack 

‚+ Stringlänge 

sl. Zeichen des nächsten Strings 
durch O (Zeilenende) ersetzen 
‚Stringadr. n.String auf den Stack 
‚Stringadresse akt.String laden 


2AD6 
2AD7 
2AD8 
ZADE 
2ADC 
ZADD 
ZADE 


2AE9 
2AEC 


2AEF 
2AF2 
2AF5 
2AFB 


ZAFB 


c5 
TE 
CD 65 QE 
ci 
El 


c9 


ER 


CF 
29 
Cl 


Di 
c5 
43 


FE 7A 
(2 97 19 
c3 D9 79 


cD 1F 28 
32 94 78 
CD 93 78 
63 FB 27 


CD BE 2% 


PUSH BC si. Zeichen d.n.Strings sichern 

LD As (HL) il. Zeichen des Strings laden 

CALL  BESSH \String in Zahl umwandeln {in X) 
Püp BE 54, Zeichen d.n.Strings laden 

POP HL ;Stringadresse d.n.Strings laden 
LD HL), B şi. Zeichen in nächsten String zur. 
RET 


EITHER TEE 


Unterprogramm für LEFT$, RIGHT$ und MID$ 


EX DE,HL sAnsprung LEFT$ und RIGHT$ 
;Programmzeiger in HL 

RST 8 ‚prüfen, ob mit °)? abgeschlossen 

DEFE ‘F 

POP BC Ansprung MID$ 
;Rucksprungadresse laden 

POP DE iż. Argument in E laden 

PUSH BC Rucksprungadresse auf Stack 

LD BE j2. Argument in B 

RET 


THREE E 


Funktions-Token auf der linken Seite einer Zuweisung 


CP 7AH ;= MID$ - Token 
JP NZ, 1997H ‚nein, SYNTAX ERROR 
JP 7909H $Ja, zum RAM-Erweiterungsausgang 


FEHER AE IE FEIE EEE 


INP - Funktion 
lesen Daten vom Eingabe-Port 


CALL  ZBIFH jbanzz. Wert des Arguments in A 
LD {7894H}, A sın RAM-Unterprogramm als PORT# 
CALL 7893H iRAM-Unterprogramm aufrufen 
JP Z7FEH A-Inhalt als Ergebnis in X 


RER IAEE HEFE AE 1E HE AE IEEE EEEE EE E EEEE 


OUT - Anweisung 

Daten über Ausgabe-Port ausgeben 

CALL  ZBBEH ‚beide Argumente analysieren und 
;Port-Nummer in RAM-Unterprogramm 


-1M - 


ZBR1 
ZBQZ 
2285 
2306 
2209 
ZBBA 
ZROB 
zBOC 
zB0D 


ZBOE 
ZB 
2B14 
2B17 
2818 
2819 


2B1B 
2RiC 
2BiF 
2B22 
2B25 
2826 
2827 
2828 


C3 96 78 


D7 
CD 37 23 
E3 
CD 7F OA 
EB 
El 
7A 
B7 
c9 


cD iC 2B 
32 94 78 
32 97 78 
CF 

2C 

18 8i 


D7 
cD 37 23 
CD 05 28B 
C2 4A 1E 
25 
D7 
7B 
c9? 


dP 7896H ;RAM-Unterprogramm aufrufen 


CRRERERRTET TEE 


Ausdruck auswerten und Ergebnis in Integer umwandeln 
Eing.: HL = Adresse des Ausdrucks im Program 
Ausg. DE = Ergebnis 
Flags: 5=1 Ergebnis (8 
2=1 Ergebnis < 256 


RST IBH snachstes Zeichen adressieren 
CALL 2337H ‚Ausdruck auswerten 

PUSH HL ;Programmzeiger auf Stack 

CALL  BATFH ‚ergebnis in Integer umwandeln 
EX DE,HL Ergebnis in DE 

POP HL ‚Programmzeiger laden 

LD AD Flags setzen 

ÖR À 

RET 


FERE IE IE IAE FEIE HE FEE IE HEFE FE E AE FE AE AE IE E HE FE IERE FE AE AEE AE AE E EERE EE 


2 Argumente für OUT analysieren 


CALL  ZRICH ;Port-Nummer übernehmen (in A) 

LD {78944),A sin INP- und QUT-Unterprograsm 

LD (7897H), A 

RST B folgt ein Komma ? 

DEFE °’,’ 

JR ZBICH ‚Wert analysieren (4256) und in A 


EH IEE HEIE EAEE IE HE HEFE A EAE 1E AEE FE EE AE E EAE E EE EEE EEEE 


Ausdruck auswerten, Ergebnis in Integer umwandeln («256) 


RST 16H ‚nächstes Zeichen adressieren 

CALL 2337H Ausdruck auswerten 

CALL 2805H Ergebnis in Integer umwandeln (DE) 
JP NZ, 1E4AH 1> 236 = FUNCTION CODE - Error 

DEC HL ;Programszeiger - 1 

RST 18H ‚nächstes Zeichen adressieren 

LD ÀE ‚Ergebnis in A 

RET 


FERE JERE E FE HEIE IAE AEE EEE 


LLIST - Anweisung 


191, ® 


2829 
2B2B 


2B2E 
2BZF 


2R3Z 
2833 
2B36 
2839 
2B3A 
ZB3B 
2B3C 
2B3D 
2B3E 
2BöF 
2548 
2241 
2B44 
2B47 
ZB4A 
2B4B 
2BaC 
2B4D 
2B4E 
2B4F 
2850 


2851 
2852 
2853 
2854 
2857 


2558 
2859 
2B5A 
2B5B 
2B5E 


JE Bi 
32% 78 


ci 
CD 18 1B 


(3 
CD 25 3B 
22 A2 78 
Ei 
Di 
4E 
23 
46 
23 
78 
Bi 
CA 19 1A 
CD DF 79 
cD 9B 1D 
(3 
4E 
23 
46 
23 
c3 
E3 


EB 
DF 
Cl 
DA 18B 1A 
E3 


E5 
65 
EB 
22 EC 78 
CD AF OF 


Programm auf Drucker auflisten 


LD 
LD 


Ài 
{789CH), À 


‚Ausgabe-Flag auf Drucker 


THREE 


LIST - Anweisung 
Programm auf Bildschirm auflisten 


POP 
CALL 


PUSH 
CALL 
LD 
POP 
POP 
LD 
INC 
LD 
INC 
LD 
OR 
JP 
CALL 
CALL 
PUSH 
LD 
INC 
LD 
INC 
PUSH 
EX 


EX 
RST 
POP 
JP 
EX 


PUSH 
PUSH 
EX 


ELL 


BC 
1B10H 


BC 
3B25H 
{78A2H) HL 
HL 

DE 

Cy (HL) 
HL 

B, (HL) 
HL 

AB 

c 

Z, 1A19H 
79DFH 
1098 
BC 

C (HL) 
HL 

B, (HL) 
HL 

BC 

(5P) HL 


DE, HL 
18H 

BE 

C, 1A18H 
(SP) HL 


HL 

BC 

DE, HL 
(7BECH) , HL 
BFAFH 


- 12 - 


;Rucksprungadresse vom Stack 

ıbeide Argumente analysieren 

sl. Zeilenadr.in BC, 2.Zeil.nr=Stack 
;1. Zeilenadresse auf Stack 

Liste unterbrechen/abbrechen? 
;Direktbefehl setzen (Znr=FFFF) 
si.Zeilenadresse in HL 
;2.Zeilennummer in DE 

ıleilenzeiger der Zeile laden 


iZeilenadresse auf Zeilennummer 
ıProgrammende ? (Zeiger=BR0B) 


1Jas zurück zur Hauptschleife 
ıRAM-Erweiterungsausgang 
;Tastenbetätigung auswerten 
Adresse der nächst.Zeile auf Stack 
;Zeilennusmmer laden 


;Programazeiger auf Zeilentext 
‚Zeilennummer auf Stack 
;Programazeiger auf den Stack 
sZeilennummer in HL laden 
;End-ZNr. in HL, Zeilennummer in DE 
sZeilennummer > End-Zeilennunmer ? 
‚Programmzeiger in BC 

idJaı fertig 

‚Adresse nächste Zeile laden. 
‚End-Zeilennummer auf den Stack 
Adresse nächste Zeile auf Stack 
;Programmzeiger auf den Stack 
sZeilennummer in HL 

sals ’.’-leilennummer speichern 
;Zeilennummer ausgeben 


2861 
Z863 
2564 
2B67 
ZB6A 
ZB6D 
2870 
2B73 


2875 
2876 
2B77 
2878 
2B7B 
287C 


287E 
2B7F 
2882 
+883 
2854 
2885 
2887 
2389 
2BBA 
2888 
2B8C 
ZBED 
288E 
2598F 
2898 
2391 
2594 
2896 
2898 
2899 


JE 20 

Ei 

CD ZA 83 
CD TE ZB 
2A AT TB 
CD 75 28 
CD FE 20 
18 BE 


TE 

B7 

c8 

CD 2A 03 
23 

18 F7 


E5 
2A A7 78 
44 

4D 

Ei 

16 FF 

18 03 
23 

15 

c8 

7E 

87 

23 

22 

c8 

C3 9D 2Æ 
FE FB 
20 B8 
0B 

aB 


LD 
POP 
CALL 
CALL 
LD 
CALL 
CALL 
JR 


Âr’ ? 

HL 

B32AH 
2B7EH 

HL, {78A7H) 
2B75H 
ZBFEH 
ZB33H 


Leerzeichen nach der Zeilennunmer 
‚Programmzeiger laden 

Leerzeichen ausgeben 

aus Zwischencode lesbaren Text erz 
;Ein-/Ausgabe-Puffer adressieren 
Text der Zeile ausgeben 
‚tarriage-Return ausgeben 

nächste Zeile 


RR EEE 


Text-String ausgeben {mit 88 abgeschlossen) 


LD 
OR 
RET 
CALL 
INC 
JR 


As (HL) 
A 
2 
B3ZAH 
HL 
2875H 


Zeichen laden 
;=Textende ? 

ija, fertig! 
Zeichen ausgeben 
1Textadresse + I 
‚nächstes Zeichen 


RR eE F 


Aus Zwischencode lesbaren Text erzeugen 
Wird aus der Programmzeile in den Ein-/Ausgabe-Puffer 


übertragen. 
PUSH HL 

LD HL, {78A7H) 
LD BH 

LD GL 
POP HL 

LD D,BFFH 
JR 2BBCH 
INC BC 

DEC D 

RET Z 

LD As (HL) 
OR À 

INC HL 

LD (BC),A 
RET Z 

JR 2£9DH 
cP BF BH 
JR NZ, 2BABH 
DEC BC 

DEC BC 


“493 + 


;Programmzeiger auf den Stack 
‚Pufferzeiger in BC laden 


;Programmzeiger laden 
max. Zeichen = 255 


Pufferzeiger + 1 
sZeichenzähler - i 

Puffer voll? ja-fertig 
Zeichen aus Programm laden 
Zeilenende ? 
;Programmzeiger + Í 

Zeichen in Puffer übertragen 
Zeilenende, fertig! 

weiter bei 2E9DH (Rucksack) 
;= ’ - Token ? 

‚nein! 

p REM aus Puffer löschen 
ı(Pufferzeiger - 4) 


ZBIA 
2389% 
289C 
z890 
ZBIE 
EBIF 
ZBAB 
2BA2 
ZBAS 
2BA7 
2BAG 
2349 
2BAC 
2BAD 


ZBAF 
2RB2 
2BB3 
2BB5 
ZBB7 
2888 
2B89 
2BBA 
2BBD 
2BBE 
2BBF 
2BCH 
2863 
zBC4 


2BC6 


2BC9 
2BCA 
ZBCR 
28CC 
2BCF 
2BD1 
2802 
ZBD3 


BB 

BB 

14 

14 

14 

14 

FE 95 

CC 24 BB 
Dé 7F 

E5 

SF 

21 58 16 
TE 

B7 

23 

F2 AC 28B 
1D 

20 F7 

Eb 7F 

B2 

83 

15 

CA D8 28 
TE 

23 

B7 

F2 B7 2B 
El 

18 66 


CD 10 iB 


DI 

c5 

c5 

cD 2C 1B 
J38 05 

54 

5D 

E3 


DEC Bc 

DEC BC 

INC D jZeichenzähler + 4 

INC D 

Int D 

INC D 

cP 95H jELSE - Token ? 

CALL  Z,BB24H idJas `i? davor entfernen 

SUB 7FH ;Token - 7F = Nummer des Schl.worts 
PUSH HL ıProgrammzeiger auf den Stack 

LD EA ;Schlusselwortnummer in E 

LD HL, 1650H iSchlusselwort-Tabelle adressieren 
LD As (HL?) Zeichen aus Tabelle laden 

OR À jAnfang eines neuen Schlusselworts? 
INC HL }Tabellenzeiger + 1 

JP P, 2BACH jnein, weiter suchen 

DEC E }Ja, gesuchtes Schlüsselwort ? 

JR NZ, 2BACH nein, nächstes Schlusselwort such. 
AND 7FH sin i.Zeichen Bit 7 löschen 

LD {BC),A Zeichen in Puffer übertragen 

INC BC ;Pufferzeiger + i 

DEC D sZeichenzähler - 1 

JP Z: 2808H iPuffer voll, fertig 

LD A, (HL) ‚nächstes Schlusselwort-Zeichen 
INC HL ;Tabelleneiger + I 

OR A ¡neues Schlússelwort ? 

JP P, 2887H jnein, übertragen 

POP HL iProgrammzeiger wieder laden 

JR 2B8CH ‚nächstes Textzeichen 


RR: 


DELETE - Befehl 
Programmzeilen löschen 


CALL  1BIBH ;beide Argumente analysieren 
si.Zeilenadr.in BC, 2.ZNr.auf Stack 

PoP DE iż. Zeilennummer in DE 

PUSH BC il. Zeilenadresse auf Stack 

PUSH BC si2 mal) 

CALL  1BZCH ı2. leilenadresse ermitteln 

JR NC,ZBD6H snicht vorh., FUNCTION CODE - Error 

LD D,H i2. Zeilenadresse in DE 

LD EL 

EX (5P), HL şi. Zeileņnadresse laden 
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ZBD4 
2BD5 
ZBD6 
2BD9 
ZBDC 
ZRDF 
2BEB 
ZBEI 
ZBE4 
2BE5 
2BEB 
2BE9 
ZBEA 
ZBEB 
2BEC 
ZBED 
2BEF 
2BFO 
2BFi 
2BF4 


ZBF5 
2BFB 
ZBFA 


2188 
zco 
202 
2685 
2686 
2687 
2CaB 
ZUBE 
ZCBF 
2618 
zcii 
2012 
2615 
2616 


E5 

DF 

DZ 4A iE 
212919 
CD A7 28 
ci 

21 EB 1A 
E3 

EB 

2A F9 78 
1A 

82 

83 

13 

DF 

20 F9 

68 

69 

22 F9 78 
c9 


CD 1C 2B 
FE 28 

D2 4A 1E 
32 D2 7A 
CF 

26 

cD 1C 2B 
B7 

CA AA IE 
FE BA 

D2 4A 1E 
F3 

E5 

3D 

F5 

3A D2 7A 
B7 

28 48 


PUSH 
RST 
JP 
LD 
CALL 
POP 
LD 
EX 
EX 
LD 
LD 
LD 
INC 
INC 
RST 
JR 
LD 
LD 
LD 
RET 


HL 

18H 

NC, 1E4AH 
HL, 1929H 
28A7H 

BC 

HL, 1AEBH 
(SP) HL 
DE, HL 

HL, (78F9H) 
A, (DE) 
(BC) À 

BC 

DE 

18H 

NZ, 2BEBH 
HB 

L,C 
(7BF9H) , HL 


jż. Zeilenadresse auf den Stack 
‚i. Zeilenadresse wieder auf Stack 
si. Zeilenadresse «= 2, Zeilenadr. 
‚nein, FUNCTION CODE - Error 

‚Text ’READY’ adressieren 

und ausgeben 

i1. Zeilenadresse laden 
;Rucksprungadresse laden 

‚mt 2. Zeilenadr. tauschen 

+2, Zeilenadresse in DE 
ıProgrammtext-Ende in HL 

Zeichen aus hint.Progbereich laden 
sund nach vorne übertragen 
‚Programmzeiger + Í 


‚Programmende erreicht ? 
‚nein, nächstes Zeichen 


sletzte Zieladresse=neues Prog. ende 


jabspeichern 


FEIE FEAE EAE FEAE HEFE FE IERE AE WE AEE AEAEE E FE AE FE FE FE EE FEAE AEE EEEE E 


SOUND - Befehl 
CALL  ZBICH 

CP 32 

JP NC, 1E4AH 
LD 7ADZH) HA 
RST 8 

DEFB t 

CALL  2BiCH 

OR À 

JP Z, 1E4AH 
CP 18 

JP NC, LE4AH 
DI 

PUSH HL 

DEC A 

PUSH AF 

LD Ay (7ADZH) 
OR À 

JR 1, 2C58H 


-15 - 


ı1.Parameter (Note) analysieren 
‚Note > 31? 

»Jas FUNCTION-CODE Error 
;Notenwert speichern 

folgt ein Komma ? 


‚2. Parameter (Länge) analysieren 
sTonlänge = @ ? 

ıJas FUNCTION CODE - Error 
;Tonlänge > 9 ? 

sJa, FUNCTION CODE - Error 
sInterrupts ausschalten 
‚Programmzeiger auf den Stack 
;Tonlänge - 1 

sauf den Stack 

iNotenwert laden 

68? 

ija; Pause 


2018 
2019 
2tıR 
ztit 
261D 
zt1E 
zur 
2622 
2023 
2624 
2625 
2626 
2627 
2C2A 
2c2C 
2C2D 
2CZE 
2638 


2633 
2634 
2635 
2636 
2637 
2038 
2639 
2638 
2631 
2630 
2C3E 
2641 
2044 
2645 
2048 
2649 
ZCAA 
2C4B 
2C4D 
ZC4E 
2C4F 
2058 
2631 
2653 
2056 


3D 
CB 27 
4F 


47 
Fi 
21 CF 02 
29 
SE 
23 
56 


216 8 
CB 39 


5E 
16 28 
21 2183 


ES 


Ei 
19 
18 FD 


cl 

Ei 

{D FB 3A 
JA 3B 78 
37 

CD 69 34 
o8 

79 

BO 

20 Fi 

Ei 

FB 

TE 

23 

FE 3B 

CA F5 2B 


2B 


DEC 
SLA 
LD 
XOR 
LD 
POP 
LD 
ADD 
LD 
INC 
LD 
PUSH 
LD 
SRL 
ADD 
LD 
LD 
LD 


LD 
ADD 
LD 
PUSH 
POP 
ADD 
DJNZ 
PUSH 
POP 
POP 
CALL 
LD 
LD 
CALL 
DEC 
LD 
OR 
JR 
POP 
EI 
LD 
ING 
CP 
JP 
DEC 


å 

À 

GA 

À 

BA 

AF 

HL, B2CFH 
HL, BC 

E, (HL) 
HL 

D, {HL) 
DE 
HL,B361H 
C 

HL, BC 

E, (HL) 
D,8 

HL; 0321H 


GA 

HL, BC 

B, (HL) 
DE 

HL 

HL, DE 
2C38H 

HL 

BC 

HL 

JAFH 

A, (7B3BH) 
DA 
3467H 

BE 

ÀC 

B 

NZ, 2C3EK 
HL 


As (HL) 
HL 


7e? 
? 


1, ZBFSH 
HL 


- 1% - 


‚Notenwert - 1 
* 2 
sin BC = Offset fur Frequenztabelle 


;Tonlänge laden 
;Frequenztabelle adressieren 

it Offset für Note 
Frequenzuert aus Tabelle laden 


iFrequenzwert auf den Stack 
;Tabelle der Zeitgrundwerte adress, 
;Frequenz-üffset / 2 
j+Tabellen-Anfangsadresse 
;=leitgrundwert fur 1/8 Note {in E) 


;Tabelle der Multiplikatoren für 
;Tonlänge adressieren 

;Tonlänge-i1 in BC (=Tab.Offset) 
ı+Tabellen-Anfangsadresse 
;Multiplikator aus Tabelle laden 
sZeitgrundwert mit B+i multipliz. 
Ergebnis in HL 


;Tondauer in BC übertragen 
sals Zyklus-Zähler 
iFreauenzwert laden 
;BREAK-Taste gedruckt ? 
öutput-Latch - Byte laden 
sin D 

;Ton ausgeben 
sZyklus-Zähler - 1 

8? 


nein, Ton halten 
jProgrammzeiger laden 
sInterrupts einschalten 
Zeichen laden 
ıProgrammzeiger +t Í 
sfolat ein °F ? 

ija, nächste Note spielen 
įProgrammzeiger - 1 


2657 


2658 
2059 
2C5A 
zC38 
2651 
2c5F 
2168 
2C61 
2664 
2663 
2666 
2667 
2669 
2666 
2C6D 
ZC6E 
2COF 
2071 


2073 
2674 
2675 
2677 
2C7A 
2078 
2670 
2C7E 
2188 
2181 
2682 
21083 
2186 
2687 
2688 
2189 
2CBA 
2C8B 
2CBC 
zC8D 


(9 


Fi 
4F 


47 
21218 
09 

46 

21 36 19 
E5 

Di 

19 

id FD 

CD F8 3A 


7D 
B4 
20 F& 
18 DA 


c5 

47 

3E 08 

CD BA 3A 
78 

Eb OF 

E5 

CB 27 

4F 

AF 

47 

21 AF 02 
09 

TE 

47 

23 

TE 

AF 

78 

CD BA A 


RET 


POP 
LD 
XOR 
LD 
LD 
ADD 
LD 
LD 
PUSH 
POP 
ADD 
DUNZ 
CALL 
DEC 
LD 
OR 
JR 
JR 


AF 

GA 

À 

BA 
HL,B3ZIH 
HL, BC 

B, (HL) 
HL 6454H 
HL 

DE 

HL, DE 
2C66H 
JAFBH 

HL 

AsL 

H 

NZ, 2C69H 
2C4DH 


fertig 


Tonlänge - i laden 
sin BC 


Tabelle der Multiplikat.adressier. 
it Tonlänge-i 

‚Multiplikator aus Tabelle laden 
iGrundwert fur 93.75 ms laden 
‚Grundwert mit B+i multiplizieren 
;= Pausenzähler 


;BREAK-Taste betätigt? 
‚Zähler - I 
8? 


nein’ 
ija, Pause beendet: 


FEEFEE HAE EAEE IE FE MEHE HE AE FEE FE FE IE AEE IE AE AE E FE E FEFE E FEAE EEE E E 


Ausgabe von Grafik-Zeichen auf einem Drucker 


PUSH 
LD 
LD 
CALL 
LD 
AND 
PUSH 
SLA 
LD 
XOR 
LD 


ADD 
LD 
LD 
ING 
LD 
LD 


CALL 


BC 
BA 
Aı8 
3ABAH 
AB 
BFH 
HL 

À 

GA 

A 

BA 
HL,BZAFH 
HL,BC 
As (HL) 
BA 
HL 

Às (HL) 
GA 
AB 
3ABAH 


FAN S 


$RC auf Stack sichern 

sZeichen in B 

‚Drucker in Grafik-Mode umschalten 
‚durch Ausgabe von X’08° 

Zeichern wieder in A 

‚oberes Halbbyte löschen 

iHL auf Stack sichern 

Zeichen * 2 

sals Tabellen-Öffset in BC 


Anfang Grafik-Tabelle adressieren 
;+ Zeichen-Offset 
si. Tabeilensert in B laden 


;Tabellenadresse + 1 
ı2. Tabellenwert in C laden 


ji. Tabellenwert in A 
Wert dreinal auf den Drucker ausg. 


2698 
2673 
2696 
2697 
2C9A 
2690 
2CAR 
2CAl 
2CA2 
2CA4 
2Ch7 


FO Pu Bat 
cr cm 
PA D 

= 


2cB1 
2CB4 
2CB5 
ZUB6 
2CB7 
ZUBA 
2CBB 
¿CEC 


2CRD 
zcCO 
2663 
2614 
2665 
2666 
2669 


CD BA 3A 
CD BA JA 
79 

CD BA 3A 
CD BA 3A 
CD BA JA 
Ei 

ci 

JE BF 

CD BA 3A 
c9 


cD 7F BA 
7E 
C3 FB 27 


CD 02 28 
D5 
CF 
26 
cD ic ZB 
Di 
12 


(9 


l 


CD 38 23 
CD F4 BA 
CF 

JB 

ER 

2A 21 79 
18 88 


CALL 
CALL 
LD 
CALL 
CALL 
CALL 
POP 
POP 
LD 
CALL 
RET 


3ABAH 
JABAH 
ÂC 

3ABAH 
JABAH 
JABAH 
HL 

BC 

A AFH 
JABAH 


2. Tabellenwert in A 
‚Wert dreimal auf den Drucker ausg. 


HL und BC wiederherstellen 
‚Drucker wieder in Text-Modus 


durch Ausgabe von X’BF’ 
‚fertig 


KRKRKRIIR EHRE TIHNRERIER THREE 


PEEK - Funktion 
Inhalt einer Speicherstelle laden 


CALL 
LDD 
JP 


BATFH 
Às (HL? 
27F8H 


Argument in Integer umwandeln {HL) 
‚Inhalt der Speicherstelle laden 
als Ergebnis in X 


TESTER TI 


POKE - Anweisung 
Wert in Speicherstelle schreiben 


CALL 
PUSH 
RST 
DEFB 
CALL 
POP 
LD 
RET 


2502H 
DE 
g 


177 
I 


2BICH 
DE 
(DE) À 


‚Adresse auswerten und in DE 
sauf den Stack 
sfolgt ein Komma ? 


Wert auswerten (4256) und in A 
Adresse laden 
Wert an dieser Adresse speichern 


ETETTHTHRRHTEREHIHRR 


USING - Anweisung 
Fornatierte Ausgabe 


CALL 
CALL 
RST 
DEFB 
EX 
LD 
JR 


2339H 

BAF 4H 

B 

DE, HL 

HL, (7921H) 
2CD3H 


18 - 


ıFormat-String auswerten 
skein String? TYPE MISMATCH - Error 
folgt ein Semikolon ? 


Programmzeiger in DE 
‚Zeiger auf Format-String laden 


weitere Ausgaben mit gleichem Format-String 


ZiCB 3A DE 78 LE A, 178DEH) nächstes Zeichen laden 
ZCtE B7 ÖR À $= Anwersungsende? 
2CCF 23% JR 2, 2CDDH Ja, FUNCTION CODE - Error 
zD Di FOP DE \Formatstring-žeiger lader 
2c02 EB EX DE, HL sin HL 
203 ES PUSH HL Formatstring-Zeiger auf Stack 
ZDA AF XOR A jletztes Zeichen löschen 
2605 32 DE 78 LD (78DEH) ‚A 
2CD8 BA CP D i2-Flag löschen und (y-Flag setzen. 
2609 F5 PUSH AF Ergebnis-Flags auf den Stack 
ZCDA DS PUSH DE ;Programmzeiger auf den Stack 
2CDR 46 LD B, (HL) ‚Stringlänge iaden 
z2CDC BO OR B 8? 
2CDD CA 4A 1E JF 2, 1E4AH ıJas FUNCTION CODE - Error 
ZtEB 23 INC HL Formatstring-Zeiger +t | 
z2CE1 4E LD C (HL?) ‘Stringadresse in HL 
2(E2 23 INC HL 
20E3 6b LD Hs (HL) 
2CE4 69 LD L,C 
¿CES 18 IC JR ZDOSH 
’%° - Feldlänge ermitteln 
2CE7 58 LD E,B ;Stringlänge in E 
2CEB £5 PUSH HL ‚Stringzeiger auf Stack 
2CE9 BED LD G2 sleichenanzahl=2 (für Begrenzung) 
zZtEB 7E LD Às (HL) Zeichen laden 
20C 23 INC HL ‚Stringzeiger + 1 
ZCED FE 25 cp K? = 'W 7 
2CEF CA 172E JP Z,2E17H Ja, formatierten String ausgeben 
ZCF2 FE 28 CP 28H Leerzeichen ? 
2CF4 2088 JR N2, 2CF9H inein, Fehler: 
ZCFb BC Int c sZeichenzahl + 1 
2CF7 18 F2 DINZ  ZCEBH ;Stringlänge - 1 > B ? ja, zuruck 
Z£F9 El POP HL ;Stringzeiger wieder laden 
2CFA 43 LD BE \Stringlänge wieder in B 
2CFB 3E 25 LD A’ ı’% ausgeben 
Anfang eines String- oder Nummernfeldes suchen 
ZCFD CD 49 ZE CALL  2E49H Pe außerhalb Nummernfeld ausg. 
2000 CD 2A 83 CAL  BIZAH Zeichen ausgeben 
2003 AF XOR A A=B 
2004 5F LD EA ;Feldlänge = @ 
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2D85 
2D86 
2009 
ZDBA 
2DOB 
200C 
2DBE 
¿Dii 
2D13 
2D15 
2Di6 
2019 
2DiB 
2D1D 
2D1F 
2D28 
2D21 
2022 
2024 
2026 
2028 
ZD2A 
2D2B 
2D2D 
2D2F 
2D31 
2033 
2035 
2D36 
2038 
2039 
2D3R 
2D3C 
203E 
2040 
2042 
2043 


2045 
2046 
2048 
2049 
2D4A 
2D4B 


37 
cD 49 
37 
TE 
23 
FE 21 
CA 14 
FE 23 
28 37 
85 
CA FE 
FE 28B 
JE 88 
28 E7 
2B 
7E 
23 
FE 2E 
28 48 
FE 25 
28 BD 
BE 
20 DƏ 
FE 24 
28 14 
FE 2A 
28 c8 
78 
FE 02 
23 
38 03 
TE 
FE 24 
JE 20 
20 87 


it 
FE 


C 18 
23 
ic 
82 
37 


2E 


LD 
CALL 
LD 
LD 
INC 
CP 
JP 
cP 
JR 
DEC 
JP 
cP 
LD 
JR 
DEC 
LD 
INC 
cP 
JR 
cP 
JR 
CP 
JR 
cP 
JR 
CP 
JR 
LD 
CP 
INC 
JR 
LD 
CP 
LD 
JR 
DEC 
INC 


XOR 
ADD 
INC 
INC 
ADD 
LD 


DA 
ZE49H 
DA 

As (HL 
HL 

"in 

Z, 2E14H 
ay’ 

7, ZD4CH 
R 

2, 2DFEH 
t4? 

AB 

2, 2DR6H 
HL 

Às (HKL?) 
HL 

Z, 2D66H 
m 

2, 2CE7H 
(HL) 
NZ, 2CFDH 
1g? 

Z, 2045H 
74? 

NZ, ZCFDH 
ÀB 

fl 

HL 

C, ŻD3EH 
A, (HL) 
1$ 

À, 20H 
NZ, 2D49H 
B 

E 

BEFH 

Â 

A IBH 
HL 

E 

ÀD 
D,A 
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‚Format-Filag = B 

‚+ außerhalb Nummernfeld ausg. 
;Format-Flag in D 

Zeichen aus String laden 
‚Stringzeiger + I 
‚Ausrufezeichen ? 

ijas, l. Zeichen des Strings drucken 
iNummernzeichen ? 

ida, Nummernfeld analysieren 
‚Stringiänge - 1 

= 0 ? ja, Stringende! 

= ’+ 7? 

;Format-Flag = 8 

ija, Sprung 

Zeichen nochmals laden 


Punkt ? 

Ja, Nachkommastellen bestimmen 
07 

Ja, String formatieren 

‚= nächstes Zeichen ? 

‚nein, weiter 

i2 Dollarzeichen ? 

ıJa, Format-Flag setzen 

2 Sterne ? 

‚nein, weiter 

letztes Zeichen noch im Formatstr. 


‚Stringzeiger auf nächstes Zeichen 
‚nein! 

‚Zeichen laden 

;Dollarzeichen ? 

‚Bit 53 des Format-Flags für ’*’ 
jnein! 

‚Stringlänge - I 
‚Nummernfeldlänge + 1 

SCP BAFH Dummy-Befehl 
;Format-Flag löschen 

‚Bit 4 des Format-Flags für ’$’ 
iStringzeiger + 1 
:Nummernfeldlänge + ! 
;Format-Flag mit letztem verknüpfen 
sund in D 


H 
. 


u 
— 


2D4C 
2D4D 
ZDAF 
2D58 
2D52 
2053 
2054 
2056 
2058 
2D5A 
2D5C 
2D5E 
2D6B 
2D61 
2D63 
2D64 


2066 
2067 
2069 
2D6B 
2D6D 
2Dar 
2079 
2071 
2D72 
2074 
2075 
2076 
2078 


2D7A 
2D7R 
2D7E 
2D7F 
2088 
2081 
2083 
2084 
2085 


2087 


It 
BE 88 
85 
28 47 
TE 
23 
FE ZE 
28 18 
FE 23 
28 FB 
FE 2C 
28 1A 
TA 
F& 48 
37 
18 E6 


7E 
FE 23 
JE ZE 
28 98 
BE Bi 
23 
ac 


28 25 
TE 
23 
FE 23 
28 F6 


D5 

11 97 2D 
D5 

54 

5D 

FE 5B 


ca 
BE 
ca 
23 
BE 


INC 
LD 
DEC 
JR 
LD 
INC 
cP 
JR 
CP 
JR 
cP 
JR 
LD 
OR 
LD 
JR 


E 

INT 

R 
2,2D99H 
Às (HLL?) 
HL 
Z,2D7@H 
1# 

Z, 2D4CH 


ı 3 
? 


NZ, 2D7AH 


A,D 
40H 
D,A 
2D4CH 


‚Nummernfeldlange + 1 

‚Anzahl Nachkommastellen = O 
ıStringlänge - I 

‚= 07 ja, Formatstring ausgewertet 
;Zeichen laden 

‚Stringzeiger + I 

Punkt 7 

3a, Anz.Nachkommastellen ermitteln 
ıNummernzeichen ?7 

iJa, Nummernfeld weiter auswerten 
iKomma ? 

nein, Nummenfeld-Parameter auswert 
‚Bit & des Format-Flags für ’,’=1 


‚weiter bei ZD4CH 


Anzahl der Nachkommastellen bestimmen 


LD 
cP 
LD 
JR 
LD 
INC 
INC 
DEC 
JR 
LD 
INC 
cP 
JR 


As (HL) 
E H 
År’? 


NZ, 2CFDH 


Ci 

HL 

£ 

B 

Z, 2099H 
As (HL? 
HL 

ypy 

2, 2D70H 


Zeichen laden 
‚Nummernzeichen ? 


jnein, ’.’ ausgeben 

‚Zähler f.Nachkommastellen = i 
Stringzeiger + 1 

‚Zähler f.Nachkommastellen + I 
‚Stringlänge - Í 

= 8? ja, Formatstringende! 
‚Zeichen laen 

‚Stringzeiger + I 
Numsernzeichen ? 

jja! 


Nummernfeld-Endparameter auswerten 


PUSH 
LD 
PUSH 
LD 
LD 
cp 
RET 
CP 
RET 
INC 
CP 


DE 


DE, 2097H 


DE 
D,H 
EL 
5BH 
NZ 
(HL) 
NZ 
HL 
(HL) 
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;Format-Flag auf den Stack 
;Rucksprungadresse setzen 


}Stringzeiger in DE 


sletzt.Zeichen = ’Pfeil hoch’ ? 
nein, weiter bei 2D97H 

‚auch die nächsten 3 Zeichen ? 
jnein! 


2D88 
2089 
2DBA 
2088 
2D8C 
2D8D 
2D8E 
2098 
2091 
2092 
2093 
2094 


2095 
2096 
2097 
2078 
2099 
2D9A 
2D98 
209C 
2DE 
2DAB 
2DAI 
2DA2 
2DA3 
2DAS 
2DA& 
ZDAB 
ZDAA 
2DAC 
ZDAE 
2DB8 


2DB2 
2DB3 
2DB4 
2085 
2DB6 
2DB7 
2DB9 


co 
23 


ca 
23 
78 
D6 84 


Di 
Di 
47 
14 


23 
CA 
EB 
Di 
TA 
ZB 
It 
Eb 88 
20 15 
1D 
78 
B7 
28 18 
TE 
D6 2D 
28 86 
FE FE 
20 07 
JE 88 
th 84 


82 
37 


El 
Fi 
28 58 
c5 


D5 


RET 
INC 
cP 

RET 
INC 
LD 

SUB 
RET 
POP 
POP 
LD 

INC 


INC 
DEFB 
EX 
POP 
LD 
DEC 
INC 
AND 
JR 
DEC 
LD 
OR 
JR 
LD 
SUB 
JR 
cP 
JR 
LD 
ADD 


ADD 
LD 
DEC 
POP 
POP 
JR 
PUSH 


PUSH 


NZ, 2DBSH 
E 

AB 

A 

2, 2DB5H 
Ay HL) 
2, ZDBOH 
FEH 

NZ, 2DB5H 
A,B 

Ay4 


AD 
D, À 

B 

HL 

AF 

Z, 2E09H 
B 


DE 
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ynein: 


jnein! 
‚Stringlänge < 4 ? 


iJa, die 4 Pfeile ignorieren 
;Rucksprungadresse vom Stack 
;Format-Flag laden 
iStringlänge - 4 

Bit 1 des Format-Flags für 
Exponentenausgabe setzen 
;Stringzeiger + i 

ıJP Z,DIEB Dummy-Befehl 
;Stringzeiger wieder in HL 
‚Format-Flag laden 
Format-Flag in A 
iStringzeiger - I 
;Nummernfeldlänge + 1 

+’ - Bit gesetzt ? 

jja! 

‚Nummernfeldlänge - I 
Stringlänge = 8 ? 


1Ja, Formatstring ausgewertet 
Zeichen laden 

‚Minuszeichen ? 

ija! 

ıPluszeichen ? 

‚nein, Ausgabe! 

‚Bit 3 des Format-Flags für ’+ = 1 
Bit 2 des Format-Flags für 
;Vorzeichen hinter der Zahl = I 
zu Gesamt-Formatflag verknüpfen 
sund in D 

;Stringlänge - 1 

;Programmzeiger laden 

Flags wieder laden 
Anweisungsende ? ja, fertig! 
‚Stringlänge + Nachkommastellen 
sauf den Stack 

;Format-Flag + Nummernfeldlänge 
sauf den Stack 


zDEB 
2DBE 
ZDBF 
2DCB 
żDCi 
zDC2 
2DC3 
DC4 
2DC5 
2DC7 
¿DCA 
2DCB 
2DCD 
2DD8 
2DD3 
2DD4 
2DD5 
2DD& 
2DD7 
2DD9 
2DDE 
2DDE 
2DEB 
2DEZ 
2DE5 
2DE6 
2DE7 
2DEB 
2DE9 
2DEA 
ZDEB 
2DEC 
2DED 
2DEE 
2DEF 
2DFB 
ZDF 
ZDF2 
2DF 3 
2DF5 
ZDF 6 


b. 


i 


bo 


2DF7 
2DF8 


CD 37 23 
Di 

cl 

c5 

E3 

43 

78 

Bl 

FE 19 

D2 4A 1E 
TA 

Fb 88 

cD BE OF 
CD A7 28 
Ei 

ZB 

D7 

37 

28 0D 
32 DE 78 
FE 3B 
28 05 

FE 2C 

C2 97 19 
D7 

cl 

EB 

Ei 

E5 

F5 

D5 

7E 

% 

23 

4E 

23 

6b 

69 

16 8 
5F 

19 


78 
B7 


CALL 
FOP 
POP 
PUSH 
PUSH 
LD 
LD 
ADD 
CP 
JP 
LD 
OR 
CALL 
CALL 
POP 
DEC 
RST 
ScF 
JR 
LD 
CP 
JR 
cP 
JP 
RST 
POP 
EX 
POP 


PUSH 
PUSH 
LD 
SUB 
INC 
LD 
INC 
LD 


LD 
LD 
ADD 


LD 
OR 


2337H 
DE 

EC 

BC 

HL 
BE 
Â B 
AC 
19H 
NC, LESAH 
ÀD 
BBH 
BFBEH 
28A7H 
HL 

HL 
10H 


2, 2DEÓH 
(78DEH) ,A 


u? 
? 


Z, 2DE5H 


7? 
? 


NZ, 1997H 
10H 

BC 

DE, HL 

HL 


‚Ausdruck auswerten (zu form. Zahl) 
;Flag*Nummernfeldlänge laden 
‚Stringing+Nachkommast. laden 

‚und wieder auf den Stack 
ıProgrammzeiger auf den Stack 
iNummernfeldlänge in R 

ı+ Nachkommastellen 


‚Gesamtfeldlänge ;= 25 ? 

Ja, FUNCTION CODE - Error 
Format-Flag ın A 

‚Bit 7 setzen (Formatierung!) 
Zahl in formatierten String umw. 
‚und diesen ausgeben 
‚Programszeiger laden 
;Programmzeiger - 1 

nächstes Zeichen laden 

‚Carry setzen (für CR) 
jAnweisungsende ? ja, Sprung 
Zeichen speichern 

{Semikolon ? 

ija! 

Komma ? 

‚nein, SYNTAX ERROR 

‚nächstes Zeichen 

‚Stringzähler laden 
;Programmzeiger in DE 
ıStringzeiger laden 

und wieder auf den Stack 
Flags auf den Stack 
iProgrammzeiger auf den Stack 
ursprüngliche Stringlänge in A 
ı-Stringlänge =Anz.verarb. Zeichen 
jStringzeiger + 1 
‚Stringadresse in HL laden 


‚Anzahl der verarbeiteten Zeichen 
sin DE 

stStringadresse = Adresse des 
}Reststrings 

;Reststringlänge > B ? 


2DF9 
¿DFC 


ZDFE 
2EB1 
2EB4 
2685 
286 


2609 
2EBC 


2EBD 


2E18 
21i 


2E14 
2E16 
2617 
218 
2E19 
21C 
2E1D 
21E 
2E28 
2E21 


2624 
227 
2E28 
2E29 
2E2A 


2E2D 
2E2E 
230 
2£31 


26.34 


c2 03 2D 
18 86 


0o ro 


CD 49 2E 
CD 2A 83 
Ei 
Fi 
c2 CB 2C 


DC FE 28 
E3 


cD DD 29 


El 
C3 69 21 


BE Bi 


Fi 


CD 49 ZE 
Ei 

Fi 

29 E9 


cD 37 23 


CD F4 BA 
ci 
c3 
E5 
2a 21 79 


4 

BE 08 

65 

CD 68 2A 


CD AA 28 


JP NZ, ZDB3H 
JR ZEB4H 
Formatstring-Ende 
CALL  2E49H 
CALL  B32AH 
POP HL 

POP AF 

JP NZ, 2CCBH 
CALL C, 20FEH 
EX (SP),HL 
CALL 29DDH 
POP HL 

JP 2169H 
Stringformatierung 
LD Gl 

DEFB JEH 

POP AF 

DEC B 

CALL  2E49H 
POP HL 

POP AF 

JR 2, 2EBIH 
PUSH BC 

CALL 2337H 
CALL  BAFAH 
POP BC 

PUSH BC 

PUSH HL 

LD KL, (7921H) 
LD B,C 

LD C8 

PUSH BC 

CALL  2A6BH 
CALL  ZBAAH 


iJa,; weiter 


ı +’ außerhalb Nummernfeld ausgeben 
Zeichen ausgeben 

;Programmzeiger laden 

Flag wieder laden. Anweisungsende? 
‚nein, nächstes Zahl mit gleichem 
;Formatstring formatieren 

‚Carry gesetzt? ja, CR ausgeben 
ıProgrammzeiger auf den Stack 
‚Stringzeiger laden 

;Formatstring aus Stringbereich 
‚und Zwischenspeicher löschen 
;Programmzeiger laden 

Ausgabe-Flag auf Bildschirm 

‚und fertig! 


‚Ansprung ’!’, Zeichenzahl = i 

ILD AFi Dummy-Befehl 

‚Ansprung ’%’, Stackkorrektur 
Stringlänge - I 

ı’+ außerhalb Nummernfeld ausgeben 
;Programmzeiger laden 

Flag wieder laden 
Anweisungsende? ja, fertig 
;Stringlänge auf den Stack 
Ausdruck auswerten 

(zu formatierender String) 
‚Ergeb, kein String? TYPE MISMATCH 
‚Stringlänge laden 

sund wieder auf den Stack 
‚Programmzeiger auf den Stack 
;Stringzeiger des zu formatierenden 
‚Strings laden 

‚Zeichenanzahl als 2. Argument 
ifur LEFT$ in B 

iLeft-Offset = 8 

beide Parameter auf den Stack 
‚String formatieren. Das I. ’!’ 

0. die ersten '%’ abtrennen 
;Formatierten String ausgeben 


2637 
2E3A 
2E3B 
zE3C 
2E3D 
ZE3F 
2E40 
ZE41 
2E44 
2E47 


2649 
2E4A 
ZE4B 
2E4C 
2E4E 
2E51 
2852 


2633 
2654 
2655 
2656 
2E57 
2658 
459 
23C 
2535F 
2E62 


26.63 
2664 
2665 
2E68 
2869 
ZE6B 
2EbC 


2A 21 79 
Fi 

% 

47 

JE 28 

84 

85 

CA D3 2D 
cD 2A B3 
18 F7 


F5 

7A 

B7 

JE 2B 

CA 2A 83 
Fi 


68 
69 
23 
23 
23 
23 
CD 7E 28 
2A A7 78 
CD 75 2B 
c9 


LD 
POP 
SUB 
LD 
LD 
INC 
DEC 
JP 
CALL 
JR 


Unterprogramm für USING 


PUSH 
LD 
OR 
LD 
CALL 
POP 
RET 


KL, (7921H) 
AF 

(HL) 

B,A 

Ay’ 3 

B 

R 

7, 2DD3H 
B32AH 
2E40H 


AF 

A,D 

A 

Ap t 
NZ, 032AH 
AF 


‚Stringzeiger in HL 
}leichenanzahl in A 

‚Länge des formatierten Strings 
ı- Zeichenzahl in B 
jLeerzeichen laden 

Differenz = 8 ? 


1Ja, weiter 
Leerzeichen ausgeben 
weiter bei 2EABH 


sAF sichern 

‚Bit im Format-Flag gesetzt ? 
stkann nur ’+’-Bit sein) 

PH laden 

iJa, ausgeben 

JAF wieder laden 


FERIE IE AE EAE HE AeA FEE AEAEE E EAE AEE AE E 1E AE EAE EE dE EEEE 


Ausgabe einer vorhandenen Zeile bei AUTO-Eingabe 


LD 
LD 
INC 
INC 
ING 
INC 
CALL 
LD 
CALL 
RET 


HB 

LC 

HL 

HL 

HL 

HL 

2B7EH 

HL, (78A7H) 
2875H 


sZeilenadresse in HL 


;Zeilenadresse hinter Zeilennunner 


‚Zeile aufbereiten u. in 1/0-Buffer 
ıBufferadresse laden 
Zeile ausgeben 


FEJERE IEE WAE EAE E IEEE AEAEE EAE FEAE AEE FE FEAE IEE dE EEE E EE 


MODE - Anweisung ausführen 


RST 
DEFB 
CALL 
OR 
JR 
DEC 
JR 


8 

? p? 
2B1CH 

À 

2, 2E7DH 
A 

2, 2E71H 


sfolgt ein ’t’ ? 


;Oöperand in Klammer auswerten 
¡MODE (B) ? 

ija, Sprung 
i 
$ 


=l 
= @? ja, MODE (1)! 


2EGE 


2E71 
273 
2£76 
2E78 
2E7B 


2E7D 
2E7F 
2682 
2E84 


2687 
2EBA 
2EBB 
ZEBE 
2E91 
2E92 
2E93 
2694 
295 
269 
2697 
2699 
2EIA 
2E9B 
2EIC 


229 
ZEIF 
2EA2 
EAJ 
ZEAL 
ZEAI 


2EAA 
ZEAB 


C3 4A 1E 


14 88 
JA 3B 78 
Fé 88 
32 3B 78 
18 BA 


16 28 
JA 3B 78 
E6 F7 
32 3B 78 


32 08 68 
E3 

21 80 78 
ai Ba ga 
7A 

77 

23 

0B 

78 

Bi 

20 F8 

El 

CF 

29 

c9 


FE 22 

CA B3 2E 
B7 

F2 89 2B 
C3 94 28B 


7E 
B7 
23 


JP 1E4AH 
MODE (1) setzen 
LD D,8 

LD As t783BH) 
OR 8 

LD (T83BH),A 
JR 2E87H 
MODE (@) setzen 
LD D,’ ° 

LD A, (783BH) 
AND OF7H 

LD (783BH),A 
LD (68804), A 
PUSH HL 

LD HL, 7BROH 
LD BC, 2848 
LD ÀD 

LD (HL) A 
INC HL 

DEC BC 

LD AB 

OR £ 

JR NZ, 2E9iH 
POF HL 

RST 8 

DEFE °y 

RET 


‚nein, FUNCTION CODE - Error 


iLöschzeichen = X 00 
‚Qutput-Latch Byte laden 
‚Bit 3 setzen 

und zuruckspeichern 
‚weiter bei 2EB7H 


sLöschzeichen = Blank 
sQutput-Latch Byte laden 
Bit 3 löschen 

und zurückspeichern 


sLatch-Byte ausgeben 
‚Programmzeiger auf Stack 
ıBildanfangsadresse laden 
Zähler = 2K-Bute 
Bildspeicher sit Löschzeichen 
sfullen 

Bildadresse + I 

sZähler - 1 

8? 


nein, weiter 
;Programmzeiger laden 
sAbschluß mit ’)’ ? 


RAR E 


Zusatzroutine für LIST 


(Ausgabe von Strings) 


CP 
JP 
OR 
JP 
JP 


LD 
OR 


. ING 


7#? 


Z, 2EB3H 
Å 

P, 2889H 
2B94H 


A, (HL) 
À 
HL 


‚Stringanfang ? 

Ja, weiter bei 2EBSH 
‚ist es ein Token ? 
nein, nächstes Zeichen 
ija, weiter bei 2B94H 


Zeichen laden 
Test auf Zeilenende 
iProgrammzeiger + | 


EAC 
2EAD 
ZEAE 
ZEBB 
ZER3 
2EB4 
2EB5 
ZEB& 


2EBB 
2E89 
2EBA 
2EBR 
2EBC 
ZEBF 


2E62 
2E05 


2609 
2ECE 
ZECE 
2ED1 
2ED2 
2ED5 
2ED6 
2ED7 
2ED8 
2ED7 


2EDC 
ZEDF 
2EE1 
2EE2 


82 

ca 

FE 22 

CA 89 2B 
83 

15 

c8 

18 Fi 


F5 
c5 
D5 
E5 
cD 7D 78 
CD 7B 3F 


cD DC 2 
CD FD 2E 
F5 

21 39 78 
CB 46 

cC 1B 38 
Fi 

cD 30 34 
Ei 

Di 

ci 

Fi 

FB 

ED 4D 


JA 39 78 
CB 47 

co 

21 41 78 
3 

ca 


LD 
RET 
cP 
JP 
INC 
DEC 
RET 
JR 


(BC) A 
Z 

2, ZBBIH 
BC 

D 

Z 

ZEAFH 


Zeichen in Puffer übertragen 
Zeilenende, fertig 
‚Stringende ? 

ija, weiter bei ZB89H 
iPufferzeiger + I 

‚Puffer voll ? 

jā, aufhören 

nächstes Zeichen im String 


FIRE EEE 


Interrupt - Service - Routine 
(wird alle 20 as vom Video-Controller angestoßen) 


PUSH 
PUSH 
PUSH 
PUSH 
CALL 
CALL 


CALL 
CALL 
PUSH 
LD 
BIT 
CALL 
POP 
CALL 
POP 
POP 
POP 
POP 
EI 
RETI 


AF 
BC 
DE 
HL 
787DH 
3F7BH 


ZEDCH 
ZEFDH 
AF 

HL, 7839H 
0, (HL) 
Z: 3BiBH 
AF 
3430H 
HL 

DE 

BC 

AF 


jRegisterinhalte retten 


IRAM - Erweiterungsausgang 
Bildschirm ggf. invertieren 
;Print-Buffer ausgeben 

Cursor ausgeben/blinken 
Tastatur abfragen 
seingelesenes Zeichen sichern 
Flag 2 adressieren 
\Carriage-Return Flag gesetzt? 
innein, Zeichen ausgeben (Echo) 
Zeichen wieder laden 

Summer ertönen lassen 
;Registerinhalte wiederherstellen 


sInterupts wieder einschalten 
RETURN vom Interrupt 


SHIHE IEEE dE E dE AEAEE HEE AEE E dE dE AEAEE E EEE EEEE EEE 


Cursor ausgeben / blinken 


LD 
BIT 
RET 
LD 
DEC 
RET 


Às (7839H) 


BA 

NZ 

HL, 7841H 
(HL) 


NZ 
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iFlag 2 laden 

‚Carriage-Return Flag gesetzt? 
jja, fertig 

Blinkzähler adressieren 

u | 


‚nicht Null, fertig! 


ZEE7 
2EE9 
ZEEC 
2EEF 
ZEFi 
2EF2 
2EF3 


2EF4 
2EF7 
2EFB 
ZEFB 
ZEFC 


ZEFD 
ZFoR 
2Fd2 
2F03 
2FB5 
2F07 
2FBA 
ZFBB 


2FBE 
211i 
2F13 
#15 
2F18 
219 
2F 18 
Æ 1D 
ZFIE 


JE 18 
32 41 78 
2A 28 78 
JE 48 

AE 

77 

c9 


CD FD 2E 
F5 
CD BE 2F 
Fi 
c9 


JA 20 68 
Fé co 

2F 

FE 88 
28 87 

CD 28 2F 
B7 

£2 D7 85 


21 38 78 
cB 56 
28 88 
JA 3A 78 
B7 

28 82 

CB 9% 

TE 

E6 86 


LD À: 16 ‚Blinkzähler neu setzen 
LD {T841H) A 
LD HL, (7820H) iCursor-Adresse laden 


LD ÀA, 40H ıInverse-Bit in A setzen 

XOR {HL) Zeichen an Cursor-Pos. invertieren 
LD (HL), A 

RET 


FERE FEE IE FE HEIE EEE FEAE FE AE AEE FEE FEAE FE EERE FEAE FE EE AEE EEEE 


Ein Zeichen von der Tastatur einlesen 
(Aufruf über Tastatur-DCB) 


(ALL  2EFDH Tastatur auswerten 
PUSH AF Zeichen sichern 

CALL  2F0EH Flags zurücksetzen 
POP AF Zeichen wieder laden 
RET 


FEIE IEE AEAEE BEHE AE FEAE AEAEE FEAE FEAE AEE AEAEE IEE AERE EEE EEE 


Tastatur einmal auswerten 
Ausg.: A = eingelesenes ASCII-Zeichen 
A = 8, wenn keine Taste betätigt ist 


LD A, (68804) alle Zeilen der Tastaturaatrix les 
OR 1 10000008 ‚Spalten & u. 7 ausblenden 

CPL ;A-Register invertieren 

cP 8 ‚wenn = 8, keine Taste gedrückt 

JR I, 2FBEH ‚dann alle Flags löschen 

CALL  2F28H iMatrixzeilen einzeln auswerten 

OR A ‚kein ASCII - Zeichen ? 

JP NZ, 0507H doch, prüfen auf Mehrfachbetätig. 


FEIE HEE JEEE AE E-E-E AE AE AEAEE AEAEE AEAEE AEE AE AE AEE AEAEE EEEE 


Flag-Bits zurücksetzen 


LD HL, 7838H Flag 1 adressieren 

BIT A (HL) ;Funktions-Flag gesetzt? 

JR 2,2F1DH nein! 

LD A, (783AH) sZeitzähler laden 

OR A 8? 

JR Z, 2Fi1DH ijas Funktions-Flag nicht löschen 
RES 2, (HL) Funktions-Flag löschen 

LD ÀA, (HL?) Flag i laden 

AND 280201 i BB ibis auf Funkt.+ Inv.-Flag löschen 


-a2 - 


2F28 
Zr2B 
2F2D 
2F2F 
2F 30 
2F32 
2F 33 
2F 35 
2F37 
2739 
2F3A 
2F St 
2F3E 
24i 
2F42 
zF 4h 
F hh 
4F48 
2F49 
2F4B 
2F4D 
2F4F 
2F58 
452 
2F54 
2F55 


2F56 
2F58 
2F5A 
2F5C 
2F5E 
2r68 


2F62 


32 38 78 
AF 
32 36 78 
c9 


21 FE 68 
BE 28 
B6 86 
TE 

F6 84 
if 

30 2D 
10 FB 
CB 85 
BD 

20 Fi 
B6 84 
21 DF 68 
7E 

CB 57 
28 10 
cB 85 
TE 

cB 57 
28 0D 
cB 85 
TE 

CB 57 
28 BA 


(9 


BE 83 
18 86 
BE 82 
18 82 
BE 81 
F& B4 


SF 


LD (7838H) , A sund zuruckspeichern 

XOR A ;Zeichenpuffer Bi löschen 
LD (78364) ,A 

RET 


TREE E EE E 


Tastatur zeilenweise auswerten 
Ausg.: A = Tastencode oder Null 


LD HL,68FEH Tastaturzeile I adressieren 
LD 6,8 iZeilenzähler = 8 

LD Bıö Spaltenzähler = & 

LD As (HL) ıZeileninhalt laden 

OR MRELDIBOR ‚Spalte 2 (Sonderfunkt.) ausblenden 
RRA iniederwertigstes Bit in Carry 
JR NC, 2F62H ;= 8, Taste gefunden 

DINZ  2F32H nächstes Bit (8x) 

RLC L nächste Zeile adressieren 
DEC c ıZeilenzähler - i 

JR NZ, 2F2DH P B? ja, nächste Zeile 

LD Bı4 ;Spaltenzähler = 4 (Spalte 2) 
LD Hi, 68DFH Tastaturzeile 6 adressieren 
LD As (HL) įZeileninhalt laden 

BIT ZA ;’-" Taste gedruckt ? 

JR 1, 2F56H jja! 

RLE L ;Tastaturzeile 7 adressieren 
LD A, (HL) iZeileninhalt laden 

BIT ZyA ;RETURN - Taste ? 

JR 2, 2F5AH tja! 

RLC L ;Tastaturzeile 8 adressieren 
LD As (HL?) ıZeileninhalt laden 

BIT ZA ;’:’ Taste gedruckt ? 

JR I, 2F5EH jja! 

XOR À mit A = 8 zurück 

RET 

LD C3 sZeilenzähler = 3 ifur ’-”) 
JR 2F 60H 

LD C2 iZeilenzāähler = 2 (für RETURN) 
JR 2F 60H 

LD Ci sZeilenzähler = 1 (för °?) 
OR 200201208 Spalte 2 wieder ausblenden 
LD EsA iZeileninhalt in E merken !!! 


2F63 
2F65 
Zr6h 
2F68 
2F6A 
2F6C 
ZF6E 


FOF 
2F73 


2F76 
2r 79 
2F7A 
2F7C 
2F7F 
281 
2F83 
2F86 
2F88 
2FOB 
zF8D 
2F90 
2F92 
2F94 
2F97 
2799 
2F9B 
2FIE 
ZFAB 
ZFA2 
2FA3 


2FAS 
ZFA& 
2FA7 
2FAB 
2FAF 
ZFAC 
2FAE 
ZFBO 
2FB2 
2FB5 
2FB7 


JE 86 
98 

CB 27 
CB 27 
CB 27 
C 08 
A 


ED 43 42 78 
22 44 78 


2109 0 
4F 

B6 88 

JA FR 68 
CB 57 
20 BA 

21 38 78 
CB Ch 

21 89 02 
18 3D 

JA FD 68 
CB 57 

28 39 
3A 7F 68 
cB 57 

28 BE 
213878 
CB AE 

28 B4 

7E 

EE 22 


77 

AF 

Cl 

c9? 

21 38 78 
CB FE 

CB 56 

28 85 
21698 
18 13 
JA BF 68 


LD 

SUB 
SLA 
SLA 
SLA 
ADD 
SUB 


LD 
LD 


LD 
LD 
LD 
LD 
RIT 
JR 
LD 
SET 


JR 


BIT 
JR 
LD 
BIT 
JR 
LD 
BIT 
JR 
LD 
XOR 


LD 
XOR 
POP 
RET 
LD 
SET 
BIT 
JR 
LD 
JR 


(7842H), BC 
(78444) HL 


HL,B1D9H 
GA 

B,8 

Ay (68FBH} 
ZA 

NZ, 2F8DH 
HL, 7838H 
B, (HL) 
HL, 8289H 
2FCAH 

À, (GBF DH) 
ZA 

NZ, 2F CDH 
À, {687FH) 
ZA 

NZ, 2FAIH 
HL, 7838H 
S (HL) 
NZ, ZFAGH 
A (HL) 
20100810B 


(HL?) À 
À 
BE 


HL, 7838H 
7, (HL) 

2, (HL) 

Zu 2FB7H 
HL, 0267H 
2F CAH 

A, (G8BFH) 
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‚Aus Spalten- und Zeilenzähler 
‚Offset für die Tastatur-tabellen 
sermitteln. 


A=BI(6-B)+B-C 


Zeilen- und Spaltenzähler merken 
Zeilenadresse merken 


Tastaturtabelle 1 (o. SHIFT) adr. 
;Tabellen-Offset in BC 


;Tastaturzeile 3 laden 

;SHIFT - Taste gedrückt ? 
‚nein! 

Flag 1 adressieren 

;SHIFT-Flag setzen 
;Tastaturtabelle 2 (m. SHIFT) adr. 
‚Code aus Tabelle lesen 
‚Tastaturzeile 2 laden 

sCcTRL - Taste gedrückt ? 

snein! 

Tastaturzeile 8 laden 

PP - Taste gedruckt ? (INVERSE) 
snein! 

Flag I adressieren 

WARTE-Flag gesetzt ? 

Ja, Tastendruck ignorieren 
Flag i laden 

sINVERSE-Flag invertieren, 
;WARTE-Fiag setzen 

‚Flag 1 speichern 

A=B 

1. Rucksprungadr. entfernen 
zwei Ebenen zurück 

‚Flag 1 adressieren 
ıCONTROL-Flag setzen 
ıFUNCTION-Flag gesetzt ? 

‚nein! 

;Tastaturtabelle 4 (Funktionen) 
Code aus Tabelle lesen 
Tastaturzeile 7 laden 


ZFBA 
ZFRt 
ZFBE 
zF 
FCI 
arch 


2FC5 
2F67 
ZFCA 
ZFCB 
arte 


ZFCD 
ZFDB 
2FD2 
2FD4 
2FD5 
ZFD6 


2FD7 
ZFDA 
2FDC 
ZF DE 
ZFEI 
2FE2 
2FES 
2FE7 
2FE9 
2FEA 


2FEB 
ZFEC 
2FEE 
ZFFO 
2FF3 
2FF4 
2FF7 
2FF9 
2FFB 
2FFE 


CB 37 

20 07 

CR D6 

AF 

32 3A 78 
(9 


CR 96 

zi 39 02 
09 

7E 

c9 


3A 38 78 
E6 8i 

28 Fé 

AF 

Ei 

c9 


21 38 78 
CB bE 
28 25 

JA 3A 78 
st 

32 3A 78 
FE 2A 

28 82 

AF 

{9 


TE 

E6 DF 
F6 48 
32 38 78 


32 3A 78 
CB 46 
20 84 
JA 36 78 


BIT 
JR 
SET 
XüR 
LD 
RET 


RES 
LD 
ADD 
LD 
RET 


LD 
AND 
JR 
XOR 
POP 
RET 


ZA 

NZ, ZFC5H 
2, (HL) 

À 
{783AH) A 


Z, (HL) 
HL, 0239H 
HL, BC 
Â, (HL) 


ÀA, (7838H) 
10208081 B 
Z, 2FCAH 
À 

HL 


SRETURN gedrückt 7 
nein! 

»FUNCTION-Flag setzen 
sZeitzähler rucksetzen 


sFUNCTION-Flag löschen 
;Tastaturtabelle 3 (Keywords) 
;Tabellenadr. + Offset 

‚Code aus Tabelle lesen 
zuruck 


‚Flag 1 laden 

SHIFT- 0. CTRL-Flag gesetzt ? 
‚nein, Code ermitteln 

‚Taste ignorieren 

j1. Rucksprungadr. entfernen 
izwei Ebenen zuruck 


KERNE HEEE EEEE EE Ede eE E edee EEEE E E 


Tastenwiederholung 
LD HL, 7838H 
BIT 5, (HL) 

JR Z, 3003H 
LD A, (7B3AH) 
INC À 

LD (783AH),A 
cP 42 

JR Z,2FEBH 
XOR À 

RET 

LD As (HL) 
AND 110111118 
OR 01000080E 
LD {7838H}, À 
XOR À 

LD {783AH) ,A 
BIT 4,{HL) 

JR NZ, 2FFFH 
LD Às (7836H) 
RET. 


=2b= 


‚Flag 1 adressieren 
iWARTE-F lag gesetzt ? 
mein! 

sZeitzähler + 1 


$= 0.84 Sekunden ? 
ija! 
szuruck mt A = B 


iFlag i laden 
iWARTE-Flag löschen 
WIEDERHÖL-Flag setzen 
Flag 1 speichern 
sZeitzähler zurücksetzen 


;2 Tasten gedruckt ? 

jja! 

}Tastencode aus Zeichenpuffer laden 
izuruck 


ZFFF 
3082 
3803 
3085 
3097 
3089 
300A 
3080 
3UBE 
01 
312 
3015 
3817 
3013 
31A 


3BiB 
Bit 
301D 
J01E 
3821 
3022 
3024 
3825 
3827 
3828 
3823 
382D 
302E 
30308 
3033 
3036 


3839 
Bst 


3041 


3A 37 78 
c9 

CB 76 

20 07 

CR EE 
AF 

32 3A 78 
c9 

3A 3A 78 
3 

32 3A 78 
FE 8 

28 DA 

AF 

c9 


B7 

c8 

F5 

CD 39 38 
Fi 

FE BD 

(8 

FE 81 

(8 

JA 39 78 
CB 47 

co 

JE 20 

32 41 78 
2A 20 78 
C3 B2 3È 


21 38 78 
CB 7E 

CA 57 3i 
B7 


LD 
RET 
BIT 
JR 
SET 
XOR 
LD 
RET 
LD 
INC 
LD 
CP 
JR 
XOR 
RET 


Às (7837H) 


6 (HL) 
NZ, 3BBEH 
5, (HL) 

A 
(TB3AH), A 


A, (783AH) 
À 
(783AH) A 
6 

Zu ZFF3H 

À 


‚Code für 2. Taste laden 
szuruck 

:WIEDERHOL-Flag gesetzt ? 
ida! 

ıWARTE-Flag setzen 
sZeitzähler zurücksetzen 


mit A = Q zurück 
sleitzähler + 1 


= 8.12 Sekunden ? 
ija! 

mit A=B 

zurück 


RAR E HE EE E dee E 


Eingegebenes Zeichen auf dem Bildschirm darstellen 
{ECHO - Funktion) 


OR 
RET 
PUSH 
CALL 
POP 
CP 
RET 
CP 
RET 
LD 
BIT 
RET 
LD 
LD 
LD 
JP 


A 

Z 

AF 

3039H 

AF 

GDH 

Z 

i 

Z 

Às (7839H) 
BA 

NZ 

Ay 32 
(78414), A 
HL, (79204) 
JEB2H 


3A = B ? (kein Zeichen) 

ija, fertig 

Zeichen sichern 

Zeichen ausgeben 

‚Zeichen wieder laden 

jwar es ein Carriage-Return? 
iJa, fertig 

joder BREAK ? 

ijJa, auch fertig 

;Flag 2 laden 

sCcR-Flag gesetzt ? 

Ja, fertig 

;Blinkzähler auf dopp. Wert (Pause) 


jCursor-Adresse laden 
sZeichen invertiert ausgeben 


FERIE JE AEE FEAE 1E FE FE IE AE AE AEE AE FE FE AEE AEE FE AE AE FE AE AE 1E FE AE E EEEE E 


Direktausgabe eines Zeichens oder Schlüsselworts 


LD 
BIT 
JP 
OR 


HL, 7838H 
7, (HL) 
1,3157H 
A 


KO 


ıFlag 1 adressieren 
sCONTROL-Flag gesetzt? 
inein, Zeichen ausgeben 
;Ist es ein Token? 


3042 


3845 
3046 
J048 
3049 
IBAA 
304D 
304E 
3858 
3852 
3054 
3855 
3058 
3859 
3058 
385D 


305E 


3863 
3864 
3866 
3867 


3069 
JAB 
JBst 
JRGE 
3871 
3873 
3076 
3878 
3078 


3082 
3884 


3089 


F257 3 


F5 

D& 88 

3c 

47 

21 4F 16 
23 

CR 7E 

28 FB 

18 F9 

7E 

cD 82 30 
TE 

CB 7F 

28 F8 

Fi 


B6 16 
2190 
BE 

28 16 

23 

10 FA 


FE BG 

co 

JE 20 

cD 82 30 
JE 46 

cD 82 30 
JE 4E 

cD 82 30 
c9 


Eb 7F 
E5 

CD 57 31 
El 

23 

c9 


nein, Zeichen ausgeben 


Zeichen sichern 
‚Bit 7 löschen 
it I als Wort-Zähler 


‚Adresse der Schlusselwort-Tab. -1 


sAdresszeiger + 1 

‚Beginn eines neuen Wortes ? 
jnein, weiter 

jwortzähler - 1 = 87? 

}Ja, gesuchtes Schlüsselwort 
Zeichen aus Tabelle ausgeben 
nächstes Zeichen 

‚neues Schlusselwort ? 

jnein, weiter ausgeben 

Zeichen aus Stack wieder laden 


Prüfen, ob dem Token das Zeichen ’{’ angefügt wird. 


Anzahl der Tabellenelemente 
sAnfangsadresse der Tabelle 
‚Token = Tabelleneintrag ? 
Ja, Sprung 

‚Adresszeiger + 1 

nächsten Tabelleneintrag 


nicht in Tabelle, Sonderbehandlung ’DEF’ 


sDEF-Token ? 
jnein, fertig! 
ija, zu ’DEF FN’ ergänzen 


‚fertig! 


ein Zeichen zur Ausgabe vorbereiten 


JP P, 3157H 
PUSH AF 

SUB 80H 

INC A 

LD BA 

LD HL, 1650H 
INC HL 

BIT 7, (HL) 
JR Z, 304DH 
DJNZ  304DH 
LD A, (HL) 
CALL 3082H 
LD A, (HL) 
BIT L 

JR Z, 3053H 
POP AF 

LD p, 22 

LD HL, 8299H 
cp (HL) 

JR Z, 307CH 
INC HL 

DJNZ 3063H 
cP BROH 
RET NZ 

LD Àp?’ 
CALL 3082H 
LD AF? 
CALL 3882H 
LD Àp N? 
CALL 3882H 
RET 

AND  T7FH 
PUSH HL 

CALL 3157H 
POP HL 

INC HL 

RET 


‚Bit 7 löschen 
‚Stringzeiger auf Stack 
Zeichen ausgeben 
;Stringzeiger laden 
‚Stringzeiger + 


TATRA E 


213 


3088 
308C 
30BF 
3071 


3893 
3895 


3878 


JBAl 


3823 
3085 


3888 
3089 
308C 
JRD 
JBBF 


Sach 
3acı 
38C4 
38C5 
30C 
3869 
Jace 
J0cD 
SBCE 
30D1 
3002 
32D5 
JADE 


F5 

JA 3B 78 
CR SF 

28 17 


E6 F7 

32 3B 78 
32 08 68 
8i B0 22 
2188 78 
CD BE 3E 
23 

BB 

79 

BO 

20 F7 


Fi 

21 39 78 
CB 6E 

CA BA 3! 
FE 20 

D2 C0 38 


F5 

JA AF 7A 
B7 

20 FA 

Fi 


F3 
2A BA 7A 
7 
23 
22 BO 7A 
2i AF 7A 
J4 
F5 
JA Ab 78 
86 
3ż AE 7A 
Fi 
FB 


Gepufferte Ausgabe von Zeichen 


Zeichen sichern 

‚1/0 - Latch-Byte laden 
‚System im Grafik-Modus ? 
nein! 


‚Bit 3 löschen 

1/0 - Latch-Byte speichern 
‚umschalten in Text-Modus 
sBildspeicher für Text-Modus 
slöschen {512 Byte) 

Zeichen löschen 

‚nächste Adresse 

sZähler - I 

= 2 ? (fertig) 


nein, nächstes Zeichen 


‚auszugebendes Zeichen laden 
ıFlag 2 adressieren 
ıinitialisierungs-Flag gesetzt ? 
‚nein, Direktausgabe d. Zeichens 
‚Ist es ein Steuerzeichen ? 
‚nein! 


warten, bis Druckpuffer vollständig ausgegeben 


PUSH AF 

LD À, (7838H) 
BIT JÀ 

JR 2, 3BAAH 
AND BFH 

LD {783BH) ,A 
LD t68B0H),A 
LD BC,512 
LD HL, /EBUH 
CALL  JEBEH 

INC HL 

DEC BC 

LD At 

ÒR B 

JR NZ, 3BA1H 
POP AF 

LD HL, 7839H 
BIT 5, {HL) 

JP Z, 3186H 
CP 2BH 

JP NC, IOCOH 
PUSH AF 

LD Às (7AAFH) 
OR À 

JR NZ , 32B9H 
POP AF 

DI 

LD HL, (7ABBH) 
LD IHL) sA 
INC HL 

LD (7ABOH) HL 
LD HL.» 7AAFH 
INC (HL) 

PUSH AF 

LD Às (7BASH) 
ADD À, (HL) 

LD (7ABEH) A 
POP AF 

EI 
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Zeichen sichern 
‚Pufferzähler laden 
07 

inein, warten! 
Zeichen wieder laden 


sInterupts ausschalten 
‚Pufferzeiger laden 

Zeichen in Puffer übertragen 
;Pufferzeiger + i 

sund zuruckspeichern 
‚Pufferzähler adressieren 
iti 

Zeichen sichern 

Zeiger auf Bildausgabe-Spalte 
$t Anzahl Zeichen im Puffer 
ı= Positions-Zeiger in Zeile 
Zeichen wieder laden 
sInterupts wieder einschalten 


3807 
3009 
380DC 
JADE 
3BDr 
30E2 
JEJ 
30E4 
J0E5 
JBE? 


3186 
3189 
Ji0A 
310C 
JiBE 


3118 


FE 28 

DA EJ 38 
JE 14 

BE 

DA DE 38 
(9 

AF 

BE 

20 FD 

c9 


3A AF 7A 
B7 

(8 

47 

21 B2 7A 
E5 

7 

23 

E5 

65 

CD 86 3i 
Ci 

El 

18 F5 
Ei 

22 BƏ 7A 
AF 

32 AF 7A 
c9 


CD BD 83° 


B7 

28 84 
FE 8D 
28 AA 


cP 
JF 
iD 
cP 
JP 
RET 
KOR 
GP 
JR 
RET 


28H 

C, 3BAEH 
Ar 28 
(HL) 

Cs 3ØDEH 


å 
(HL?) 
NZ, 30E4H 


‚war es ein Steuerzeichen 7 

ya! 

maximal 20 Zeichen im Druckpuffer 
‚örenze uberschritten 

iJa; warten bis Puffer leerer 


warten, bis Puffer leer ist 


ifertig 


EHRT HT RR TR 


nach einem Interrupt Druckpuffer ausgeben 


LD 
OR 
RET 
LD 
LD 
PUSH 
LD 
INC 
PUSH 
PUSH 
CALL 
POP 
POP 
DJNZ 
POP 
LD 
XOR 
LD 
RET 


A, (7AAFH) 
À 

Z 

B, A 

HL, 7AB2H 
HL 

Ås (HL? 

HL 

HL 

BC 

3iB6H 

BC 

HL 

3ör2H 

HL 
(7ABOH) HL 
À 
(TAAFH),A 


;Pufferzähler laden 

Puffer leer? 

iJa, fertig 

sin B als Schleifenzähler 
Puffer-Anfangsadresse laden 
und auf den Stack 

Zeichen aus Puffer laden 
;Pufferadresse + I 
iPufferadresse auf Stack 
;Zeichenzähler auf Stack 
Zeichen ausgeben 
tZeichenzähler laden 
;Pufferadresse laden 

‚Puffer leer ? 

Ja, Pufferanfangsadresse laden 
jals neuen Pufferzeiger speichern 
‚Pufferzähler = 8 


KREIEREN TEEN 


Steuerung der Ausgabe eines Zeichens 


CALL 
OR 
JR 
cP 
JR 


PUSH 


B30DH 

À 

Z: 3110H 
2DH 

NZ: 315AH 


AF 


Zeichen an Cursorpos, wiederherst. 
Auszug. Zeichen = 0 ? 

1Jas CR von RDLINE! 

şist es ein Carrige-Return ? 

inein, Zeichen ausgeben 


Zeichen sichern 


Jiti 
3114 
3117 
3118 
3119 
JHA 
311D 
3iir 
3122 
3123 
3124 
3126 
3129 
312C 
312F 
3138 
3131 
3132 
3135 
3137 
3138 
313A 
313C 
313D 
J13E 
J13F 
3148 
3141 
3143 
3144 


3145 
3147 
3149 
314c 
3140 
Siar 
3158 
3153 
3154 


2A 2B 78 
3A Ab 78 
4F 

AF 

47 

32 Ab 78 
ED 42 

21 20 e 
09 

7 

FE 72 

F4 F3 33 
22 20 78 
CD 53 08 
Fi 

37 

c8 

CD AB 33 
FE 88 

c8 

FE 81 

20 05 

3D 

77 

23 

77 

c9 

3E 8 

77 

c9 


{7 


28 04 
C3 68 3F 


E6 OF 
47 
JA 46 78 


47 


LD 
LD 
LD 
XÖR 
LD 
LD 
SBC 
LD 
ADD 
LD 
CP 
CALL 
LD 
CALL 
POP 
OR 
RET 
CALL 
CP 
RET 
cP 
JR 
DEC 
LD 
INC 
LD 
RET 
LD 
LD 
RET 


HL, (7820H) 
Ay (7BASH) 
GA 

À 

Bå 
{78A6H), A 
HL: BC 

BC, 32 

HL, BC 

ÀH 

72H 

P, 33F3H 
{7820H) , HL 
2053H 

AF 

A 

Z 

33ABH 
88H 

Z 

BiH 

NZ, 3141H 
À 

(HL);A 

HL 

(HL)I,A 


À; BOH 
(HL) A 


Cursoradresse laden 
‚Spaltenzeiger laden 
sin BC übertragen 


‚Spaltenzeiger auf Spalte ® 
sCursor-Adresse auf Zeilenanfang 
it I Zeile (32 Zeichen) 


Adresse außerhalb des Bildes ? 


1Jay Bild I Zeile hochrollen 
‚neue (ursor-Adresse speichern 
Zeichen aus Cursor-Position sich. 
‚auszugebendes Zeichen laden 
sCR von RDLINE {B3ESH) ? 

jja, fertig 

‚Status der Zeile ernitteln 
jEinzel-Zeile? 

Ja, fertig 

Erste einer Doppelzeile? 
‚nein, Folgezeile 

;beide Zeilen zu Einzelzeilen 
umwandeln 


fertig 

Folgezeile in Einzelzeile 
umwandeln 

fertig 


TEHETE HEIE FE IE FEAE JEFE FEAE HE FE FE FE JEE FE FEFE FE HEE AE AE EHE TEREE E E 


Zeichen ausgeben, bzw. Steuerfunktionen ausführen 
Einsprung ist 3157 bzw. 315A 


BIT 
JR 
JP 
NOP 
AND 
LD 
LD 
OR 
LD 


A 
2, 314DH 
JF6OH 


BFH 
BA 
Àr (7846H) 


BA 


‚Invertiertes alphan. Zeichen ? 
nein, Blockgrafik! 

Invertierte Darstellung abhängig 
‚vom Hintergrund 

Bits 4,5,& löschen 
;Grafikzeichen in B 

Farbcode laden 

mit Grafikzeichen kombinieren 
Zeichen in B 


3155 


3157 
315A 
3158 
315E 
3168 
3iöl 
J163 
3166 
3168 
316B 
316D 
3170 
3172 
3175 
3177 
3174 
317C 
317D 
317F 
3182 
3184 
3187 
3189 
3186 
JiBE 
3191 
3193 
319% 
3198 
3198 
319D 
J140 
J1A2 
3145 
3147 
3148 
JIAB 
JAE 
3180 
318i 
3183 
3185 


18 5F 


cD BD 83 
87 

FA 45 3i 
FE øD 

cB 

FE 88 

CA 27 32 
FE 1B 

CA 53 32 
FE 8A 

CA 6D 32 
FE 88 

CA 27 32 
FE 09 

CA BB 3i 
FE Bi 

c8 

FE 7F 

CA CB 33 
FE 15 

CA CA 32 
FE 18 

CA 27 32 
FFE 19 
CA BB 3i 
FE 1B 

CA 53 32 
FE IC 

CA 87 32 
FE 1D 

CA B4 32 
FE IF 

CA 92 32 
FE 28 
F8 

C3 CA 3E 
21 38 78 
CB 4E 

Ei 

28 82 
F& 48 
47 


JR 


CALL 
OR 
JP 
CP 
RET 
CP 
JP 
CP 
JP 
CP 
JP 
cP 
JP 
CP 
JP 
CP 
RET 
cP 
JP 
CP 
JP 
CP 
JP 
cP 
JP 
cP 
JP 
CP 
JP 
CP 
JP 
CP 
JP 
CP 
RET 
JP 
LD 
BIT 
POP 
JR 
OR 
LD 


31B6H 


BIADH 

À 

M, 3145H 
BDH 

Z 

8 

Z, 3227H 
1BH 

Z, 3253H 


2, 3227H 
IM 

1, 31B8H 
1BH 

Z, 3253H 
1CH 

Z, 3287H 
1DH 

Z, 3284H 
1FH 

2, 3292H 
20H 

M 
3ECAH 
HL, 7838H 
1, (HL) 
HL 

2, 31B5H 
48H 

BA 


sAr s 


sund ausgeben 


Zeichen an Cursorpos. wiederherst. 
‚Bit 7 des auszug, Zeichens = 1 ? 
Ja, Sprung 
‚Carriage-Return ? 

tda, fertig! 

;BACKSPACE ? 

sja! 

Cursor hoch ? 

ija! 

;Cursor nach unten ? 

ija! 

Cursor links ? 

ija! 

‚Cursor rechts ? 

jja! 

BREAK ? 

ija, fertig ! 

RUBOUT ? 

ija! 

sINSERT ? 

jja! 

‚Pfeil links ? 

ija: 

‚Pfeil rechts ? 

ija! 

‚Pfeil hoch 7 

jja! 

Cursor an Bildanfang ? 
jja: 

Cursor an Zeilenanfang ? 
ija! 

;Bild löschen ? 

jja! 

jrestliche Steuerzeichen ignorieren 


weiter bei JECA (Rucksack) 
iFlag 1 adressieren 
;INVERSE-Flag gesetzt ? 
Stack bereinigen 

jnein! 

ja, Zeichen invertieren 
jZeichen in B 


JiB 78 LD A,B ‚Zeichen in A übertragen 


3187 77 LD (HL) sA sauf Bildschira ausgeben 
3188 CD BF 3i CALL  JiBFH ‚Cursor eine Stelle vorsetzen 
3iBR CD 58 88 CALL  BØ58H sZeiche an Cursorpos. sichern 
JIBE c9 RET 


RER 


Cursor eine Zeichenposition vorsetzen 


JiBF 3A Ab 78 LD A, (7BA6H) ;Spaltenzeiger laden 

3it2 3 INC À +i 

3it3 FE 28 CP 32 sam Anfang der nächsten Zeile ? 
3165 20 2B JR NZ, 31F2H jnein! 

367 CD AB 33 CALL  J3ABH Zeilenstatus eraitteln 
JICA FE 81 CP BIH ierste von zwei Zeilen ? 
St 2823 JR Zu 3iFiH ija! 

JitE B7 OR À izweite von zwei Zeilen ? 
31CF 28 35 JR NZ, 3206H snein! 

31D 47 LD BA Status in B 

3iD2 3A 39 78 LD A, 178394) Flag 2 laden 

3105 CR 47 BIT 8, A ;CR-Flag gesetzt ? 

3107 78 LD ÀB ‚Status wieder in A 

J3iD8 c8 RET Z ijay maximal zwei Zeilen’ 
3109 AF XOR A nächste Zeile = Folgezeile 
JIDA 23 INC HL 

JiDB 77 LD (HL) ÀA ‚(= 8) 

JiDE 23 INC HL ;HL auf Status d. n. Zeile 
3DDd E5 PUSH HL ‚und merken 

JIDE ED AB A4 78 LD BC, (78A4H) Ist dies die letzte Zeile? 
JiE2 ØB DEC BC {Diese Routine kollidiert) 
JIE3 BB DEC BC simit Programmen, die nicht) 
JiE4 87 OR A ‚(standardeäßig beginnen) 
JiE5 ED 42 SBC HL: BC 

31E7 El POP HL Status der Zeile laden 
JIES 38 97 JR NG, 31FiH Ja, letzte Zeile 

3iEA 7E LD Ay (HL) ‚Status der Zeile = 89 ? 
JiEB B7 OR A wenn Ja, Folgezeile 

31EC 20 83 JR NZ, 31F1H jnein! 

JIEE JE 88 LD A, 80H Zeile als Einzelzeile kennz. 
3iF0 7 LD (HL); À 

3irl Ar XOR À ;Spaltenzeiger = & 

Jif2 32 A 78 LD (78A6H) A A in Spaltenzeiger übertragen 
3iF5 2A 20 78 LD HL, (78284) stursor-Adresse laden 
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Jir8 
JFB 
JFC 
31FD 
J1FF 
3202 
3285 


3206 
3207 
3208 
320C 
3200 
3220F 
J211 
3212 
3215 
3217 
3219 
321B 
321D 
3228 
3221 
3222 
3223 
3224 


3227 
322A 
3228 
322E 
3231 
3232 
3233 
3235 
3238 
3238 
323E 
323F 
3241 
3242 


Bi Bi 28 
29 

7C 

FE 72 

F4 F3 33 
22 20 78 
c9 


F5 

ED 5B 28 78 
13 

7A 

FE 72 

28 18 

E5 

21 39 78 
CB 46 

20 07 

CB 66 

28 B3 

CD 2C 33 
Ei 

Fi 

st 

77 

63 09 31 


JA Ab 78 
3D 

F2 35 82 
CD AB 33 
B7 

co 

JÆ iF 

32 Ab 78 
Bi 81 38 
2A 20 78 
AF 

ED 42 

7e 

FE 78 


LD 
ADD 
LD 
CP 
CALL 
LD 
RET 


PUSH 
LD 
INC 
LD 
CP 
JR 
PUSH 
LD 
RIT 
JR 
BIT 
JR 
CALL 
POP 
POP 
INC 
LD 
JP 


Bi 

HL BC 

AH 

72H 

P, 33F3H 
{7820H}, HL 


AF 

DE, (7820H) 
DE 

AD 

72H 
2,3221H 
HL 

HL, 7839H 
8, (HL? 
NZ, 3220H 
4, (HL) 
NZ, 3220} 
332CH 

HL 

AF 

À 

(HL); À 
3109H 


sti 
außerhalb des Bildes ? 


ja, eine Zeile hochrollen 
sCursor-Adresse speichern 
‚fertig 


Status merken 
‚Cursor-Adresse laden 
‚+1 

außerhalb des Biides 7 


jja! 

‚Status-Adresse auf Stack 
‚Flag 2 adressieren 

SCR - Flag gesetzt ? 
ija! 

SINPUT - Flag gesetzt ? 
jja! 

jeine Zeile zuruckrollen 
‚Status-Adresse laden 
iZeilenstatus laden 
‚Status = Bi setzen 

= zweizeilig! 


FERE IE HE AEE AEAEE dE E EdE AEE dE AEE AE E AE AE E AAE AEAEE EAE E EEE EE 


Cursor ein Zeichen nach links 


LD 
DEC 
JP 
CALL 
OR 
RET 
LD 
LD 
LD 
LD 
XOR 
SBC 
LD 
CP 


Às (78A6H) 
A 

P: 3235H 
J3ABH 

À 

NZ 

Adi 
{78A6H) A 
3C, i 

HL, (7820H) 
À 

HL, BC 
AH 

70H 


= 219 


;Spaltenzeiger laden 

im 

noch dieselbe Zeile! 
;Zeilenstatus ermitteln 

jist dies eine Folgezeile ? 
jnein, weiter zuruck geht nicht 
Spaltenzeiger auf letzte Spalte 
jund speichern 

itursoradresse - I 


außerhalb des Bildes ? 


3244 
3247 
324A 
324) 
324E 
3244F 
3252 


3253 
3256 
3258 
3259 
325C 
325F 
3260 
3262 
3263 
3265 
3266 
3269 
326 


326D 
3278 
3272 
3273 
3276 
3279 
327A 
3278 
327D 
3288 
3283 
3286 


DA 4E 32 
22 28 78 
cD 53 08 
c9 
AF 
32 Ab 78 
c9 


21 39 78 
CB &6 
ao 
01 20 B8 
2A 20 78 
AF 

ED 42 
Te 

FE 78 
F8 

22 20 78 
CD 53 08 
c9 


21 39 78 
CB 66 

{8 

81 28 08 
zA 28 78 
89 

7e 

FE 72 

F4 24 34 
22 20 78 
cD 53 00 
c9 


JP Cy 324EH ‚Ja! 

LD (78284), HL ‚neue Cursor-Adresse zurück 
CALL  BBSIH Zeichen an Cursorpos. sichern 
RET 

XOR À ıSpaltenzeiger = 8 (1. Spalte) 
LD (78A6H) A 

RET 


KREE REEE EIEE FE EAE FEE FE HEHE FE dE dE AAE AEE EAE AE EEEE EE 


Cursor eine Zeile nach oben 


LD HL, 7839H ‚Flag 2 adressieren 

BIT 4, (HL) ;INPUT-Flag gesetzt ? 

RET NZ iJa; unzulässig! 

LD BC,32 Länge einer Zeile 

LD HL, (78204) ‚Cursor-Adresse laden 

XOR A sCarry-Flag löschen 

SBC HL, BC sCursor-Adresse - | Zeile 

LD ÀH sauĝerhalb des Bildschirms ? 
cP 70H 

RET M jja; geht nicht ! 

LD {7828H) , HL sCursor-Adresse speichern 
CALL  BB5IH Zeichen an Cursorpos. sichern 
RET 


RAR E 


Cursor eine Zeile nach unten 


LD HL, 7839H Flag 2 adressieren 

BIT 4,{HL) sINPUT-Flag gesetzt ? 

RET NZ ija, nicht zulässig! 

LD BC, 32 Länge einer Zeile laden 

LD HL, (78284) ıtursor-Adresse laden 

ADD HL, BC it eine Zeile 

LD AH außerhalb des Bildschiras ? 
CP 72H 

CALL  P,3424H 1Ja, eine Zeile hochrollen 
LD (7828H) ‚HL ;tursor-Adresse speichern 
CALL 2053H Zeichen an Cursorpos. sichern 
RET 


FRERE IEEE AE FE IE EAE HE AE FE AE FEAE AE AERE IE AEE EE IEE EE EE EE 
Cursor an den Bildschirmanfang 
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3287 
328A 
328D 
328E 
3291 


3292 
3295 
3298 
3298 
329E 
329F 
32A0 
J241 
32A2 
32A4 
3245 
3248 
32AA 
32AC 
J2AF 
3280 
3281 
3283 


32B4 
32B7 
32BA 
3ZBB 
32Bt 
3280 
32C0 
3202 
3205 


21 88 78 
22 20 78 
Bi 00 BZ 
CD BE 3E 
23 

08 

79 

38 

20 F7 

AF 

32 Ab 78 
BA 10 

JE 88 

21 D7 7A 
77 

23 

18 FC 

(9 


2A 20 78 
JA Ab 78 
4F 

AF 

47 

32 Ab 78 
ED 42 

22 2 78 
c9 


LD HL, 7BBBH ‚Bildanfangsadresse laden 
LD {7820H}, HL sin Cursor-Adresse 

XOR A ‚Spaltenzeiger = & 

LD {7BASHI A 

RET 


ETHERNET 


Bildschirme löschen 


LD HL, 7BBBH ;Bildanfangsadresse laden 
LD 78284) ,HL sin Cursor-Adresse 

LD BC,512 iLänge des Textspeichers 
CALL  JEBEH sein Zeichen löschen 

Int HL ‚Bildadresse + i 

DEC BC Länge - 1 

LD Art sam Bildende ? 

OR B 

JR NZ: 329BH jnein, nächstes Zeichen 

XOR À }5paltenzeiger = 8 

LD (TBA6H),A 

LD Bib ‚Zähler = 16 (Anzahl Zeilen) 
LD A, BOH Einzeilen-status laden 

LD HL, 7AD7H ;Statusbyte 1. Zeile adressieren 
LD {HL),A Status = einzeilig 

INC HL ;Statusbyte nächste Zeile 
DJN2  32AFH salle Zeilen bearbeitet ? 
RET sda, fertig! 


FEFE IE E E E dE EdE EAE dE dE EAE dE dE FE E dE E EAE E FE E EEE E EE EEE 


Cursor an Zeilenanfang 
LD HL, (7820H) ;Cursor-Adresse laden 


LD A, {78A6H) ;Spaltenzeiger laden 

LD GA sin BC übertragen 

XOR À 

LD BA 

LD {78A6H) A ;Spaltenzeiger = B 

SBC HL, BC sCursor-Adresse - Spaltenzeiger 


LD (78284) ,HL neue Cursor-Adresse sichern 
RET 


RHEIN 
INSERT - Funktion 
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3266 
3209 
32CR 
32CD 
3208 
3202 
32D4 
3205 
32D6 
32D7 
32DA 
32Dt 
J2DF 
J20 
32E3 
32E5 
32E6 
32E7 
32£8 
J2EB 
S2Et 
JZE 
32EF 
J20 
J2F2 
32F5 
J2F8 


32F9 
32FC 
32D 
J2FE 
3300 
3302 
3305 
3306 
3387 
3308 
J308 
338D 
3318 
J341 
3314 
3315 


CD AB 33 
FE 81 

28 3 

3A Ab 78 
FE IF 

28 25 

4F 

AF 

47 

2A 20 78 
ED 42 

Bi IF 08 
B 

CD E9 3 
20 14 

E5 

Di 

28 

JA Ab 78 
AF 

JE IF 

91 

4F 

ED 88 

CD Fé 3E 
32 3c 78 
9 


CD AB 33 
B7 

c8 

FE 80 

28 1E 
3A Ab 78 
aF 

AF 

47 

2A 20 78 
ED 42 

Bi 3F Ø 
B 

CD E9 3E 
ca 

E5 


CALL  J3ABH 

EP BIH 

JR Z, 32FEH 
LD Å, (7BAGH) 
EP Ji 

JR 21 32F9H 
LD GA 

XOR À 

LD BA 

LD HL, (7828H) 
SBC HL, BC 

LD RC, 31 

ADD HL, BC 
CALL  JEE9H 

JR NZ, 32F9H 
PUSH HL 

POP DE 

DEC HL 
LD Às {7BA6H 
LD GA 

LD Adi 

SUB c 

LD GA 

LDDR 

CALL  JEF6H 

LD {783CH),A 
RET 

CALL S3ABH 

OR A 

RET Z 

CP 80H 

JR Z, 3320H 
LD À, (78A6H) 
LD CÀ 

XOR Å 

iD BA 

LD HL, (7820H) 
SBC HL, BC 

LD BC: 63 
ADD HL, BC 
CALL  JEEGH 
RET NZ 

PUSH HL 


=e 


‚Status der Zeile ermitteln 
‚erste von zwei Zeilen ? 
jja! 

ıSpaltenzeiger laden 

sam Ende der Zeile ? 

ija! 

;Spaltenzeiger in BC 


‚Cursoradresse laden 
;- Spaltenzeiger = Zeilenanfang 
sletztes Zeichen der Zeile adress, 


letztes Zeichen der Zeile testen 
sungleich Leerzeichen 

Adresse letztes Zeichen 

sin DE 

;HL = vorletztes Zeichen 
‚Spaltenzeiger laden 

‚Zeilenlänge - | - Spalte 

sin BC für Block-Move LDDR 


sab Cursorpos. 1 Zeichen rechts sch. 
jLeerzeichen einfügen 
Zeichen sichern 


‚Status der Zeile ermitteln 
;Folgezeile ? 

ija, fertig 

jEinzel-Zeile 7 

jja! 

;Spaltenzeiger laden 

sin BC übertragen 


sCursor-Adresse laden 

ı- Spaltenzeiger = leilenanfang 
it b3 

= Ende der Doppeizeile 
letztes Zeichen = leer ? 
nein, kein Einfügen möglich 
;Endadresse 


Jal 
4317 
3318 
J318 
331C 
331E 


3328 
3321 
3324 
332 

3327 
3328 
3329 
332A 
3328 


332C 
332F 
3338 
3332 
3334 
3335 
3337 
333A 
333D 
J33E 
J341 
3343 
3345 
3346 
3349 
334A 
334D 
J34E 
3351 
3352 
3355 
3356 
3359 


Di 
2 

3A A6 75 
4F 

3E 3F 

18 CE 


E5 

cD 26 33 
Ei 

JE Bil 

77 

23 

AF 

77 

c9 


2A 20 78 
7 

FE 71 

20 2B 

7D 

FE EB 

DA SF 33 
JA Ab 78 
F5 

3A D7 7A 
FE Bi 

28 88 

E5 

CD F3 33 
El 

cD 17 83 
E5 

cD F3 33 
Ei 

CD 178 
Fi 

32 Ab 78 
Di 


PoF 
DEC 
LD 
LD 
LD 
JR 


PUSH 
CALL 
POP 
LD 
LD 
INC 
XOR 
LD 
RET 


DE 

HL 

As (7BA6H) 
GA 

Ar6 
J2EEH 


HL 
332CH 
HL 
ABIH 
{HL}, A 
HL 

A 
(HL), A 


sın DE 

‚HL = Endadresse - I 

Anzahl zu verschiebender Zeichen 
‚ermitteln und in RC 

(= &3 - Spaltenzeiger) 
;Doppelzeile I Zeichen rechts sch. 


‚Statusadresse auf den Stack 
‚Bildschirm i Zeile rollen 
‚Statusadresse laden 

‚Status der 1. Zeile = 8i setzen 
;= zweizeilig 

‚Status der neuen Zeile 

‚als Folgezeile deklarieren 

(= 38) 


RÄT HE EE Fe 1E FE HEE HE EAE AE E FE E E AE E EE E EE 


Bildschirm ab Cursor-Position eine Zeile 
nach unten rollen 


LD 
LD 
cP 
JR 
LD 
cP 
JP 
LD 
PUSH 
LD 
CP 
JR 
PUSH 
CALL 
POP 
CALL 
PUSH 
CALL 
POP 
CALL 
POP 
LD 
POP 


HL, (78204) 
AH 

71H 

NZ, 335FH 
Al 

BEH 

Ca J33FH 
A, (7BAGH) 
AF 

À, (7AD7H) 
BiH 

NZ, 334DH 
HL 

J3F 3H 

HL 

0317H 

HL 

33F3H 

HL 

B317H 

AF 
(78A6H) A 
DE 
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;Cursor-Adresse laden 
‚Ist es die letzte Zeile ? 


‚nein! 

sin der unteren Bildhälfte 
‚auch das 2. Adressbyte prüfen 
‚nicht letzte Zeile! 
‚Spaltenzeiger laden 

‚und auf dem Stack merken 
‘Status der i. Zeile laden 
jist es eine Doppelzeile ? 
‚nein, nur 1 Zeile rollen 
;Cursor-Adresse auf den Stack 
‚Bild i Zeile hochrollen 
‚Cursor-Adresse laden 
sCursor-Adresse - 1 Zeile 
sCursor-Adresse auf den Stack 
‚Bild 1 Zeile hochrollen 
‚Cursor-Adresse laden 
‚Cursor-Adresse - 1 Zeile 
;Spaltenzeiger laden 

sund alten Wert zurückschreiben 
;Rucksprungadr. vom Stack 


335A 
3358 
335t 
335D 
335E 


33sf 
3362 
3363 
3364 
3365 
3367 


336B 
3Iht 


3378 
3372 
3373 
3374 
3377 
337A 
3378 
337C 
337E 
3388 
3381 


3391 
3392 
3393 
3395 
3396 
3397 
3398 
3399 
339A 


abb E 


3A Ab 78 
4F 


47 

ED 42 

Bi 40 08 
89 

E5 

EB 

21 08 72 
ED 52 

E5 

Ci 

21 DF 71 
I FF 
79 

BO 

28 02 

ED 28 

Ei 

cD 82 3 
3a 

12 

18 

id FC 
CD AB 33 
E5 

Ci 

21 E6 7A 
E5 

B7 

ED 42 

£5 

61 

Ei 

E5 

Di 

2B 


POP 
DEC 
PUSH 
PUSH 
RET 


iD 
LD 
XOR 
LD 
SBC 
LD 
ADD 


EX 
LD 
SBC 


POP 


LD 
LD 
OR 
JR 
LDDR 
POP 


NOP 
LD 
DEC 
DJNZ 
CALL 
PUSH 
POP 
LD 
PUSH 
OR 
SBC 


POP 
POP 


POP 
DEC 


meer 


A, (7BAGH) 
GA 

À 

BA 
HL,BC 
BC,64 
HL, BC 

HL 

DE, HL 
HL, 7200H 
HL, DE 

HL 

BC 

HL, 71DFH 
DE, 7IFFH 
ÀC 

B 

Z, 3388H 


HL 
3FBZH 


{DE),A 
DE 
3385H 
33ABH 
HL 

BC 

HL, 7AEGH 
HL 

A 

HL, BC 


ERRERA 
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‚Statusadresse vom Stack 
;Statusadresse - I Zeile 
;Statusadresse auf den Stack 
Rucksprungadr. auf den Stack 
fertig 


‚Spaltenzeiger laden 
sin BC übertragen 


‚Cursoradr. - Spaltenzeiger 

it bh 

ı= Anfangsadresse der übern. Zeile 
merken 

sund in DE 

sBildendadresse + 1 

i- DE = Anzahl zu versch. Bytes 
merken 

ıBytezähler in BC laden 
jEndadresse vorletzte Zeile 
Endadresse letzte Zeile 
sBytezähler = 8 ? 


ija; keine Verschiebung 

‚nein, Bild eine Zeile nach unten 
;Zeilenadresse der neuen Zeile lad. 
ıLöschzeichen eraitteln 


‚neue Zeile löschen 


iStatus der Zeile ermitteln 
iStatusadresse in BC 


ıStatusadresse letzte Zeile 
sauf den Stack 


;- Statusadresse akt. Zeile 
‚Differenz = zu verschiebende Bytes 
sin BC als Bytezähler 

ıHL = Statusadresse vorl. Zeile 

‚DE = Statusadresse letzte Zeile 


3398 
3390 
JIAB 
33A2 
J3A3 
JAG 


J3AB 
33AB 
J3Ac 
33AD 
J3AE 
J3Bi 
3383 
3384 
3385 


3388 
33BA 
J3BB 
33BD 
J3BF 
J31 
3365 
33C5 
3308 
3309 
J3CA 


33CC38 
J3CE 
33D8 
3303 
33D4 
33D5 
33D6 


ED B8 

JA Eb 7A 
FE 81 

ca 

2A 20 78 
18 B7 


JA Ab 78 
4F 

AF 

47 

2A 28 78 
ED 42 

E5 

ĉi 

78 

Eb ØF 

CB 3F 

47 

CB 19 

CB 39 
CB 39 

(B 39 

CB 39 

21 07 7A 
09 

TE 

c9 


CD AB 33 
FE 8i 

2A 20 78 
E5 

Di 

23 

JA Ab 78 


LDDR 
LD 
CP 
RET 
LD 
JR 


As (7AEGH) 
BIH 

NZ 

HL, (7620H) 
335FH 


;Statusbyte eine Zeile nach unten 
wenn letzte Zeile keine 
;Doppelzeile 

‚dann fertig und zurück 

‚sonst Cursor-Adresse laden 

sund noch eine Zeile rollen 


RHEIN 


Zeilenstatus ermitteln 
Ausg.: A = Zeilenstatus 


LD 
LD 
XOR 
LD 
LD 
SBC 
PUSH 
POP 
LD 
AND 
SRL 
LD 
RR 
SRL 
SRL 
SRL 
SRL 
LD 
ADD 
LD 
RET 


HL = Statusadresse 


A, (78A6H) 
CÀ 

À 

Br 

HL, (78284) 
HL,BC 

HL 

BC 

A;B 

BFH 


‚A 


an dm m m D 


C 

HL, 7AD7H 
HL, BC 

Às (HL) 


;Spaltenzeiger laden 
sin BC übertragen 


}lursoradresse laden 
i- Spaltenzeiger = Zeilenanfang 
;Zeilenadresse in BC 


jZeilennumser ermitteln 
= Zeilenadresse - 7000H 
$ 


=1 
12 


i= INr. im linken Halbbyte von C 
sins rechte Halbbyte schieben 


ıAnfangsadresse der Statustabelle 
şt Zeilennumser 
ıZeilenstatus laden 


HERE AHERE EE AEE AEA FEE FEE AE AE E AE HE EAE EE dE FEAE E E 


RUBOUT - Funktion 


CALL 
CP 
LD 
PUSH 
POP 
INC 
LD 


J3ABH 
81H 


HL, (7820H) 


HL 
DE 
HL 
A, (78A6H) 
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Zeilenstatus ermitteln 
serste einer Doppelzeile ? 
iCursor-Adresse laden 

sin DE 


;HL auf nächste Zeichenposition 
iSpaltenzeiger laden 


3309 
33DA 
J3Dt 
33DE 
33ER 
33E2 
J3E3 
33E4 
33E5 
33Eb 
J3E8 
33EB 
J3EE 


33EF 
Saft 


J3F3 
Jr 
33F9 
33ft 
J3FE 
3401 


3403 
3404 


3489 
34BA 
3408 
34B 
340F 
J411 
3412 
3414 
3416 
3417 
3419 
3418 
341C 


29 13 
FE IF 
28 08 
3E IF 

A 

4F 

AF 

47 

ED 30 
CD Fb 3E 
CD 50 28 
c9 


11 88 78 
21 20 78 
Bi EB Bi 
ED BB 

CD 02 3F 


GW 


12 

13 

18 FC 

21 D7 7A 
E5 

Di 

23 

Bi OF Ba 
ED 88 

1A 

FE 81 

20 83 

AF 

18 82 

JE 88 

12 

AF 


LD 
JR 
cP 
JR 
LD 
SUB 
LD 
XOR 
LD 
LDIR 
CALL 
CALL 
RET 


LD 
JR 


HA 

Zı 33EFH 
31 

Z, J3E8H 
Âi 

C 

CA 

À 

BA 


JEF6H 
0058H 


Asbl 
33E2 


sin C übertragen 

‚bei Doppelzeile, Sprung 

Ende der Zeile ? 

Ja, nur dieses Zeichen löschen 
Länge einer Zeile 

ı- Spaltenzeiger 

sin BC als Zähler 


Zeile ein Zeichen verkürzen 
Leerzeichen ans Zeilenende . 
Zeichen an Cursorpasition sichern 
ifertig 


Länge von zwei Zeilen laden 
uber zwei Zeilen verkürzen 


FEE RAE IEE EEIEIE E FE AE E BERE EIEE FEAE EAE FEAE FEAE EAE A EE EEE 


Bildschirm eine Zeile nach oben rollen. 
Die letzte Zeile wird nit Leerzeichen gefüllt. 


LD 
LD 
LD 
LDIR 
CALL 
NOP 
LD 
INC 
DJNZ 
LD 
PUSH 
POP 
INC 
LD 
LDIR 
LD 
cP 
JR 
XOR 
JR 
LD 
LD 
XOR 


DE, 7008H 
HL, 7020H 
BC, 488 


JFR2H 


{DE),A 
DE 

3402H 
HL, 7AD7H 
HL 

DE 

HL 

BC,15 


A, (DE) 
8iH 

NZ, 3419H 
À 

341BH 

A BBH 
(DE), A 
A 
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‚Adresse der 1. Zeile in DE 
Adresse der 2. Zeile in HL 
;Bytezähler = 15 Zeilen 

Bild eine Zeile nach oben rollen 
‚vorbereiten des Löschens 

ıA = Leerz., B = Bytes/leile 
letzte Zeile löschen 


ıStatustabelle ebenfalls 

seine Zeile hochrollen 

‚DE = Status Zeile { 

ıHL = Status Zeile 2 

BC = Zeilenzähler 

von DE nach HL (Länge 15) 
‚Status der letzten Zeile laden 
war dies eine Doppelzeile ? 
nein, letzte Zeile = Einzelzeie 
ja, letzte Zeile = Folgezeile 


‚X’80° = Kennung f. Einzelzeile 
‚neue Kennung fur letzte Zeile 
;Spaltenzeiger = ® 


341D 
3428 
3423 


3424 
3427 
3429 
Ja2t 
342F 


3430 
J433 
3434 
J436 
3438 
3438 
343C 
343D 
JE 
3448 


3441 
3443 
3444 
J446 
3448 
JAAA 
344C 
JA4E 


3458 
3451 
3454 
3457 
345A 
3458 


32 Ab 78 
21 E0 7i 
c9 


JA D7 7A 
FE 8i 

CE F3 33 
CD F3 33 
c9 


21 39 78 
B7 

20 BB 

CB CE 

Bi FF 3 
OB 

79 

BO 

20 FB 

(9 


CB 46 
8 

FE 8D 
28 9 
FE ĝi 
20 04 
CB Dó 
CB Cb 


E5 
zi AG 88 
B1 86 88 
cD 50 34 
Ei 
(9 


LD (7BAGH) À 
LD HL, 71E8H IHL = Anfang der letzten Zeile 
RET ifertig 


Abhängig vom Status der ersten Zeile 
entweder eine oder zwei Zeilen hochrollen. 


LD Às 7AD7H) ‚Status 1. Zeile laden 
cP BiH $= Doppelzeile ? 

CALL  Z2,33F3H iJa, eine Zeilen rollen 
CALL  33F3H seine Zeile rollen 

RET 


RR IEEE E AE EA E dE AE IEEE E AE EE EEEE E E 


Bei Zeicheneingabe akustisches Signal ausgeben 


LD HL, 7839H Flag 2 adressieren 

OR À Zeichen eingegeben? 

JR NZ, 3441H ida! 

SET 1, (HL) ‚nein, BUZZER-Flag setzen 

LD BC,B3FFH ‚Warteschleife 

DEC BC ıbis zum Ende des vert.Sync-Pulses 
LD Ast 

OR B 

JR NZ, 343BH 

RET ifertig 

BIT Br (HL) ;Carriage-Return Flag gesetzt? 
RET NZ jja, fertig 

CP BDH Zeichen = Carriage-Return? 
JR Z, 344EH ija! 

cP BIH Zeichen = BREAK ? 

JR NZ, 3450H jnein! 

SET 2, (HL) ıBREAK-Flag setzen 

ET  @ (HL) iCarriage-Return Flag setzen 
PUSH HL ‚Flag 2 - Adresse auf Stack 
LD HL, BABH Frequenz laden 

LD BC, 6 ;Tondauer laden . 

CALL  345CH Piep-Ton ausgeben 

POP HL ıFlag 2 - Adresse laden 

RET fertig 


RR AE E FEAE AEAEE EEE AEE EEEE 
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345C 
3a5f 
3468 
3463 
3464 
3465 
3466 
3468 


3469 
J46A 
3468 
346D 
3478 
3471 
3472 
3473 
3474 
3475 
3477 
3478 
3478 
347C 
347D 
347E 
J47F 
3480 


3483 


3484 


3497 
3489 
348C 


3491 
3474 


JA 3B 78 
37 
CD 69 34 
ØB 
79 


20 F8 
c9 


65 

7A 

EE 21 

32 28 68 
E5 

Cl 

a8 

79 


20 FB 

7A 

32 0B 68 
£5 

Ci 

aB 

79 


20 FB 
Ci 
c9 


CD AB SF 


JE 28 
32 38 78 
32 08 68 
JE 3C 
32 3A 78 
JE 18 


Tonausgabe 
Eing.: HL = Frequenz 


LD 
LD 
CALL 
DEC 
LD 
OR 
JR 
RET 


PUSH 
LD 
XOR 
LD 
PUSH 
POP 
DEC 
LD 
OR 
JR 
LD 
LD 
PUSH 
POP 
DEC 
LD 
OR 
JR 
POP 
RET 


BC = Tondauer 
A, (7B3BH) 

DA 

3469H 

BC 

ÀC 

B 

NZ, 3460H 


RC 

AD 

21H 
(68084) ,A 
HL 

BC 

BC 

At 

B 

NZ, 3472H 
A,D 
(68B8H) ,A 
HL 

BC 

BC 

Art 

B 

NZ, 347DH 
BC 


1/0 Latch-Byte laden 
sin D übertragen 

ıTon ausgeben 
;Tonlänge - 1 

87 


jnein, weiter ausgeben 
jda, fertig 


;Tondauer sichern 

;1/0 Latch-Byte in A 

‚Bits d u. 5 komplementieren 
1/0 Latch-Byte ausgeben 
;Frequenzzähler in BC 


suntere Halbwelle des Tons bilden 


1/0 Latch-Byte in A 
sund ausgeben 
;Frequenzzähler in BC 


‚obere Halbwelle des Tons bilden 


}Tondauer laden 


RR E 


Teil der Initialisierungs-Routine i 


CALL 


LD 
LD 
LD 
LD 
LD 
LD 


JFABH 


Ar’ ? 
(783BH),A 
(8804) ,A 
À 60 
{783AH),A 
Alb 
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Prüfen ob CTRL-Taste gedrückt | 
sund Hintergrundfarbe entspr. einst | 
iGrundeinstellung in 1/0-Latch | 
merken! | 
‚und ausgeben : 
Zeitzähler = 68 


iBlinkzähler initialisieren | 


3496 
3499 
349A 
3490 
4AB 
J4A3 
J445 
34A8 


3449 
JAAA 
I4AC 
J4AF 
34B? 
34B3 
34B6 
34B7 
3488 
3489 
JaBR 
J4BE 
3462 
3465 
34Ch 
3469 
Jact 
J4CD 
34D8 
3401 
34D4 
3407 
34D8 
J4DB 
-34DE 
34DF 
34E2 
KEJ 
J4E6 
34E9 
JEC 


32 41 78 
AF 

32 AF 7A 
21 B2 7A 
22 BB 7A 
JE 69 

63 37 3E 
c9 


F3 

BE FB 

cD 58 35 
DA FE 3A 
E5 

i 9A Bi 
BB 

79 

Ba 

20 FB 

cD F8 3A 
DD 21 23 
2A Ad 78 
7D 

cD 11 35 
DD 77 08 
AF 

DD 77 0i 
T 
D15 
CD BE 38 
EB 

2A F? 78 
7D 

CD 11 35 
CD BE 38 
7C 

cD 11 35 
CD 8E 38 
CD FB 3A 
1A 


78 


LD 
XOR 
LD 
LD 
LD 
LD 
JP 
RET 


(7841H) A 
A 

{7AAFH) 5A 
HL, 7AB2H 
(TABBH) HL 
A, BCHH 
3E37H 


;Pufferzähler = 8 
iPufferzeiger auf Pufferanfang 
RET f. Interrupt Vektor 


‚Farbe = gelb setzen 
‚nicht benutzt 


HEEE Hei FE AAE AE E E E E dE E HE IEE FE E 2E IE AEE E E AEE E E EHE 


CSAVE - Anweisung 


Ausgabe auf Kassette 


DI 
LD 
CALL 
JP 
PUSH 
LD 
DEC 
LD 
OR 
JR 
CALL 
LD 
LD 


CALL 


C, OFBH 
3558H 

Cy JAFEH 
HL 

BC, 410 
BC 

Ac 

B 

NZ, 34B6H 
JAFEH 
IX, 7823H 
HL, (7BA4H) 
AL 
3511H 
(IX) A 
À 
t{IX+1), A 
AH 
3511H 
3BBEH 
DE,HL 
HL, (78F9H) 
Al 
35i1h 
38BEH 
åH 
3511H 
38BEH 
3AFBH 

À; (DE) 


iIEnterrupts ausschalten 

jKenner für BASIC-Programm setzen 
Vorspann und Programmmame ausgeben 
wenn Carry=t, BREAK betätigt. 
‚Programmzeiger sichern 

3 ms Lücke auf Band 


iprüfen, ob BREAK-Taste betätigt 
;Prufsummen-Bytes adressieren 
ıProgramm-Startadresse laden 
LSB Startadresse in A laden, 
sauf Kassette ausgeben 

sund in Prufsummen-Byte (LSB) 

‚8 in LSB Prufsummen-Byte 


;MSB Startadresse in A laden 
sauf Kassette ausgeben 

sauf Prufsumme addieren 
;Startadresse in DE 
;Programa-Endadresse laden 
LSB Endadresse in A laden 
sauf Kassette ausgeben 

sauf Prüfsumme addieren 

ıMSB Endadresse laden 

jauf Kassette ausgeben 

sauf Prufsumme addieren 
prüfen, ob BREAK-Taste gedrückt 
;Prograna-Byte laden 


JED 
J4EE 
J4F1 
34F4 
34F7 
J4F8 
JAFA 
J4FD 
3588 
3583 
3586 
3508 
3589 
350C 
J30E 
3390F 
3510 


3511 
3312 
3513 
3514 
3316 
3517 
31a 
35it 
351E 
3521 
3524 
3525 
3527 
3528 
3529 
352A 


J528 
352E 
3538 
3533 


13 

cD 11 35 
CD SE 38 
CD F8 3A 
DF 

20 F2 

DD 7E 8 
cD ii 35 
DD 7E 8i 
cD i1 35 
86 14 

AF 

cD 11 35 
i0 FB 

Ei 

FB 

69 


F5 

c5 

E5 

2E 08 

67 

cD 42 35 
CB 04 

38 8D 

cD 42 35 
CD 42 35 
2D 

20 F8 

Ei 

ci 

Fi 

c9 


JA 38 78 
Fé 8% 
32 00 68 
86 99 


INC DE ;Programmadresse + 1 

GL  311H ;Programm-Byte auf Kassette 
CALL  J88EH jauf Prüfsumme addieren 

CALL  3AFBH ‚prüfen, ob BREAK-Taste gedrückt 
RST 18H ;Programmende erreicht? 

JR NZ, 34ECH nein, nächstes Byte ausgeben 
LD A (IX) LSB Prufsumme laden 

CALL 3511H sauf Kassette ausgeben 

LD Asi IX+i) ;MSB Prüfsumme laden 

CALL 3511H sauf Kassette ausgeben 

LD B,28 jals Endekennung 

XOR A 120 Bytes X80 

CALL  3511H jauf Kassette ausgeben 

DJNZ 3509H 

POP HL ;Programmzeiger wieder laden 
EI Interrupts wieder einschalten 
RET fertig! 


RÄT HE FE FE AE FE FE AAE E E A AE IE AE AE EAE HE EAEE Et E 


Ein Byte auf Kassette schreiben 
Eing.: A = auszugebendes Byte 


PUSH AF ;Register-Inhalte sichern 

PUSH BC 

PUSH HL 

LD L,8 ‚Bitzähler = 8 

LD HA ;H = auszugebendes Byte 

CALL 3542H ‚Clock-Puls ausgeben 

RLE H shöchstwertiges Bit in Carry 

JR NC, 352BH 5= B ? ja, B-Bit ausgeben 

CALL 3542H jnein, I-Bit ausgeben | 
CALL 3542H idurch 2 aufeinanderfolg, Clock-P. 

DEC L ‚Bitzähler - 1 | 
JR NZ, 3517H ‚> 8? ja, nächstes Bit 

POP HL ;Registerinhalte wiederherstellen 

POP BC | 
POP AF 

RET fertig 


8 - Bit ausgeben 


LD A, (783BH) 1/0 Latch-Byte laden 
OR b iBits i u. 2 setzen 
LD {6BB0H) ,A und ausgeben 

LD 3,133 1335 us Pause 
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3535 
35337 
3539 
353 
353E 
3548 


3542 
3545 
3547 
354A 
354C 
354E 
3530 
3533 
3533 
3557 


3558 
3558 
355D 
3559F 
3562 
3565 
3566 
3568 
356A 
J56t 
J36F 
3572 
3573 
3375 
3576 
3579 
357C 
357D 
3588 
3581 
3384 


10 FE 
Eé F? 
32 00 68 
g6 99 
18 FE 
18 EZ 


3A 3B 78 
Fé B 

32 28 68 
BA 4C 

10 FE 

Eb F9 

32 88 68 
BA AC 

18 FE 

c9 


cD 8C 35 
BA FF 

JE 88 

cD 1135 
CD EB 3A 
D8 

18 F5 

Bi 05 

JE FE 

cD 11 35 
CD E8 3A 
D8 

10 F5 

79 

cD 11 35 
CD E8 3A 
D8 

JA D 7A 
47 

11 9D 7A 
1A 


DJNZ 3535H 

AND BF9H ‚Bits { u. Z wieder löschen 
LD (68804), A und ausgeben 

LD 3,153 1535 us Pause 

DINZ  353EH 

JR 3524H fertig 


Clock-Puls ausgeben 


LD Às (7838H) 41/0 Latch-Byte laden 

OR é ‚Bits I u. 2 setzen 

LD {688BH) ,A sund ausgeben 

LD B, 76 1277 us Pause 

DINZ  354CH 

AND BFIH ‚Bits I u. 2 wieder löschen 
iD {68004}, A und ausgeben 

LD B, 776 $277 us Pause 

DINZ 3555H 

RET sfertig 


FEFE HAE IEE EEE dE dE EdE E E dE E EE FE AE AE dE FR 


Vorspann auf Kassette schreiben 
(Synchronisation, Vorspann, Kenner, Programmnane) 


CALL  358CH ‘Programmare in Puffer 

LD 8:255 ‚Synchronisations-Bytes ausgeben 
LD A, BOH $= 255 x 8e 

CALL 3511H Byte ausgeben 

CALL  JAEBH ;BREAK-Taste gedruckt ? 

RET £ 1Ja, abbrechen! 

DJNZ  355DH 4253 Byte Zähler 

LD 8,3 i3 x PFE? als Vorspann 

LD A,BFEH ausgeben 

CALL 3511H ;Byte ausgeben 

CALL  S3AESH ıBREAK-Taste gedruckt ? 

RET t ija; abbrechen: 

DJNZ  356AH iByte-Zāhler 

LD Act iProgramm-(Datei) Kenner laden 
CAL  J511H sund auf Kassette schreiben 
CALL  JAEBH ;BREAK-Taste gedruckt ? 

RET £ jja, abbrechen 

LD A, (7AD6GH) Länge des Namens laden 

LD BA sin B als Zähler - 

LD DE, 7AIDH Anfangsadresse des Namens in DE 
LD As (DE) Zeichen des Namens laden 
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385 13 INC DE Adresse + 1 


3586 D11 35 CALL  JSLIH Zeichen auf Kassette ausgeben 
3587 18 F9 DINZ  3584H ‚Namen vollständig ausgegeben ? 
3588 69 RET 1Ja, fertig! 


RR AE EHE EE ERE EE 


Programm- (Datei-) Namen prüfen und in Puffer übernehmen 
Aufruf von CSAVE, CLOAD, PRINT#, INPUT 


358C 86 18 LD Bib imax. 16 Zeichen 

J58E ti 9D 7A LD DE, 7AIDH Anfangsadresse des Puffers laden 
359} 7E LD Ar (HL) Zeichen aus Programmtext laden 
3592 FE 3A cP ng ‚Ende des Befehls ? 

3594 28 12 JR 2, 35A8H iJa! 

3596 B7 OR À Zeilenende ? 

3597 28 @F JR Z, 35A8H ija! 

3599 CF RST 8 sfolgt ein ’"’ ? 

359A 22 DEFB ?™? 

359B 7E LD As (HL) ‚Zeichen des Namens in A 
3590 B7 OR A Zeilenende ? 

359D 28 09 JR 7, 35A8H jja! 

JS 23 INC HL iProgrammzeiger + | 

3Aß FE 22 cP AaS ;Ende des Strings ? 

35A2 28 84 JR 2, 35A8H jja! 

J544 12 LD {DE),A Zeichen in Puffer übernehmen 
J545 13 INC DE ıPufferadresse + 1 

3546 18 F3 DINZ 3598H snächstes Zeichen 

J35A8 AF XOR À 700’ als Abschluß 

3549 12 LD IDE), A sin Puffer 

J5AA JE 11 LD A117 Länge des Namens ermitteln 
At 98 SUB B 

SAD 3206 7A LD (7AD&H) A und merken 

3580 c9 REF sfertig 


EHER AEAEE AE IE EEFE AE AEE AEE FE FE FE HEEE E FE EAEE AE AE AE EEEE 


Prüfen, ob Lademeldungen ausgegeben werden sollen. 
Wenn ja, vorbereiten der Ausgabe 


3581 3A 4C 78 LD Às (784CH) ‚Ausgabe-Flag laden 

3584 B7 OR À 087? 

3585 (8 RET NZ ‚nein, Meldungen unterdrücken 
J586 3A 3B 78 LD A, (783BH) 1/0 Latch-Bute laden 

35B9 CB SF BIT JIA ‚arafik-Modus 7 

35BB 28 QB JR 2, 35CBH jnein! 
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J5RD 
35Br 
3362 
3505 
35C8 
J5ch 
35CE 
3500 
35D3 
3506 
35D8 
35D9 
35DA 
35DD 
J5EB 


J3E1 
35E4 


35E7 


35EA 
35ED 
35EF 
J5F1 
35F4 
J5f6 
J5F8 
SIFA 
J5FC 
35FF 
3681 
36B3 
3685 


3687 


3600 


Jii 
3613 


Eb F7 

32 3R 78 
32 88 68 
CD 92 32 
2i FF 7i 
22 20 78 


3D 
32 E5 7A 
32 Eé 7A 
c9 


21 42 38 
CD F4 37 


CD F8 3A 
JA 00 68 
CR 77 
20 Få 
cD 8F 37 
38 Fi 
CB 47 
28 F7 
B6 87 
cD 8F 37 
38 E6 
10 F9 
FE 88 
20 EB 


cD 75 37 
DA E7 35 
FE 88 
28 Fb 


B6 84 
FE FE 


AND 
LD 
LD 
CALL 
LD 
LD 
LD 
LD 
iD 
cP 
RET 
DEC 
LD 
LD 
RET 


ör7H 
(783BH) 3A 
(6BB@H) ,A 
3292H 

HL, 71FFH 
{7820H}, HL 
Asd! 
(75A6H) A 
Ar (7AESH) 
BiH 

NZ 

A 
(TAESH) JA 
(7AE6H) SA 


13a, ın Text-Modus umschalten 


sRıldschirm löschen 
‚Cursor auf letzte Bildposition 


‚Spaltenzeiger auf letzte Spalte 


‚Status der vorl, Zeile laden 
sDoppelzeile ? 

snein, fertig 

sietzte und vorl. Zeile als 
jEinzelzeilen kennzeichnen 


fertig 


FRERE HE FEE HE E FE HE HE H HE BEE FE dE- E FE E 1E AE FE dE AEE EE A EE E E E 


Programmanfang auf der Kassette suchen 


sAdresse "WAITING" - Text laden 
ıText ausgeben 


sBREAK-Taste gedrückt ? 
;1/0-Byte lesen 

Puls von Kassette auswerten 
skein Puls, zurück! 

‚Bit lesen 

‚war nichts, zurück 

war das eine 'i’ ? 

„nein, nächstes Bit 

7 weitere Bits lesen 

Bit lesen 

Zeit abgelaufen, noch einmal! 
‚nächstes Bit 

sist es ein SYNC - Byte ? 
‚nein, weiter suchen 


Kassette bis hinter SYNC-Bytes vorsetzen 


‚Byte lesen 

Zeit abgelaufen, noch einmal! 
;SYNC-Byte ? 

Ja, nächstes Byte 


die nächsten 5 Bytes müssen X’FE’ sein 


LD HL, 3842H 
CALL  37F4H 
Einsprung von CLOAD 
CALL  JAFBH 

LD A, (68004) 
BIT bÀ 

JR NZ, 35E7H 
CALL  378FH 

JR C, 35E7H 
Bit B,A 

JR Zu 35FiH 
LD R,7 

CALL  378FH 

JR C, 35E7H 
DJNZ  35FCH 

cP 88H 

JR NZ, 35E7H 
CALL 3775H 

JP C, 35E7H 
cP SH 

JR Z, 3607H 
LD B,4 

cP BFEH 
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‚Zähler = 4, da 1. Byte ber. gelad. 
i= Vorspann-Byte ? 


3615 
3618 
3618 
361E 


3620 
3623 


3626 
3629 
J62R 
362E 
dof 
3638 
3632 
3633 
3635 


3638 
3638 
J63E 
3641 


3644 
3647 
J64A 
364B 
364t 
J64D 


3631 
3632 
3653 
3655 


3656 
3657 
365A 
365C 
363E 


C2 E7 35 
cD 73 37 
DA E7 35 
18 F3 


cD 75 37 
32 D2 7A 


ta 
Pa 


2 7A 


mh 
un bo 


37 


€) Þa 
SSISRN 


28 86 
23 

18 Fé 
C3 E7 35 


21 5A 38 
CD Fa 37 
z1 B2 7A 
cD i4 38 


21 B2 7A 
11 9D 7A 
1A 

B7 

c8 

BE 

(2 E7 35 
23 

13 

18 F5 

c9 


E5 

21 39 78 
CB B6 
CB 9E 

Ei 


JP NZ, 35E7H jnein, weiter suchen 

CALL 3775H ‚nächstes Byte lesen 

JP C, 35E7H ‚Zeit abgelaufen, zurück! 
DINZ 36134 

Programmkennung lesen 

CALL 3775H ıKennungsbyte lesen 

LD (7TADZH),A jund speichern 

Namen lesen und in Puffer übertragen 

LD HL, 7AB2H ‚Pufferadresse laden 

LD 3,18 max. Länge 

CALL 3775H ‘Byte lesen 

LD (HL?) A sund in Puffer übertragen 

OR A 8? 

JR 1, 3638H iJa, fertig 

INC HL tPufferadresse + 1 

DJNZ  362BH ‚nächstes Byte des Namens 

JP J35E7H ‚mehr als 18 Zeichen! 
FOUND-Meldung ausgeben 

LD HL, 385AH ıMeldungstext adressieren 
CALL  37F4H ‚Text "FOUND" ausgeben 

LD HL, 7AB2H ‚Namen im Pufer adressieren 
CALL 38144 sund ausgeben. 

Prüfen, ob gesuchtes Programm 

LD Hi, 7AB2H Puffer adressieren (geles, Name) 
LD DE, 7A9DH ‚eingegebenen Namen adressieren 
LD A, DE) Byte des eingegebenen Namens laden 
OR À iEnde ? 

RET Z ida, gefunden! 

CP (HKL) ;= Zeichen im Puffer ? 

JP NZ, 35E7H ‚nein, weiter suchen 

INC HL ‚Pufferadresse # 1 

INC DE sAdr. d. eingegeb. Namens + I 
JR J64AH ‚nächstes Zeichen 

RET ‚nicht benutzt 


RR IE 


CLOAD - Anweisung 
Programm von Kassette lesen 


PUSH HL ‚Programmzeiger auf den Stack 
LD HL, 7839H ;Flag 2 adressieren 

RES (HL) sCRUN-Flag löschen 

RES 3 (HL). ıVERIFY-Flag löschen 

POP HL ‚Programmzeiger laden 
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363F 
J660 
3663 
3664 
3667 
J66A 
366D 
3678 
3673 
4675 
3677 
367A 
367D 
3681 
3684 
36897 
3688 
36BA 
368D 
3691 
3692 
3693 
3694 
3697 
3699 
369C 
369F 
36AB 
JbAs 
36A4 
3645 
J6AG 
36A7 
36A9 
JAC 
36AF 
J682 
6B5 

3686 
J6BR 
J6BE 
J6BF 


F3 

cD 8c 35 
E5 

cD Bi 35 
21 42 38 
CD F4 37 
cD E7 35 
3A D2 7A 
FEFZ 

28 F6 

21 68 38 
CD 24 38 
DD 21 23 78 
CD 68 38 
DA 11 37 
E5 

ED 52 

DA 11 37 
ED 53 tE 78 
E5 

ci 

El 

3A 39 78 
cR SF 
(242 37 
cD 73 3F 
12 

CD BE 38 
13 

QE 

79 

Ba 

20 F3 

cD 75 37 
DD BE 08 
c2 1i 37 
cD 75 37 
DD BE 81 
(21137 
22 F9 78 
FB 

JE BD 


Gemeinsam von CLOAD, CRUN und VERIFY benutzt 


DI 
CALL 
PUSH 
CALL 
iD 
CALL 
CALL 
LD 
cP 
JR 
LD 
CALL 
LD 
CALL 
JP 
PUSH 
SBC 
JP 
LD 
PUSH 
POP 
POP 
LD 
BIT 
JP 
CALL 
LD 
CALL 
INC 
DEC 
LD 
OR 
JR 
TALL 
cP 
JP 
CALL 
CP 
JP 
iD 
EI 
LD 


358CH 
HL 
J5B1H 


HL, 3842H 


37F4H 
35E7H 


A, {7ADZH) 


BF2H 
Z, 366DH 


HL, 3860H 


384K 


1X, 7823H 


3868H 
C 3711H 
HL 

HL, DE 
C 3711H 


(781EH) , DE 


HL 
BC 
HL 


A, (78394) 


JA 


NZ, 3742H 


3F73H 
(DE); A 
JB8EH 
DE 

BC 
AC 

B 


NZ, 369CH 


3775H 
(SE) 


NZ,3711H 


3775H 
{IX+1) 


N2, 3711H 


(78F9H) 


A, BDH 


‚HL 


ıInterrupts ausschalten 

‚Name aus Programmtext übernetimen 
‚Programmzeiger auf den Stack 
»Meldungsausgabe vorbereiten 

‚Text "WAITING" adressieren 

sund ausgeben 

‚Programm auf Kassette suchen 
;Programmkennung laden 

‚sind es einfache Daten ? 

ija, weiter suchen! 

sText “LOADING” adressieren 

jund ausgeben 

;Prufsummen-Bytes adressieren 
‚Start- und Endadresse lesen 
‚Fehler? ja-LOADING ERROR ausgeben 
‚Endadresse auf den Stack 

jEnd- - Startadrresse = Bytezähler 
‚Start- > Endadresse? ja, Fehler 
;Startadresse speichern 
‚Bytezähler in BC übertragen 


Endadresse laden 

Flag 2 laden 

ıVERIFY-Flag gesetzt ? 

ıJas zur VERIFY - Routine 
ıByte von Kassette lesen 

‚und im RAM-Bereich speichern 
sauf Prufsumme addieren 
‚Programmadresse + { 
‚Butezähler - 1 

8? 


‚nein, weiter lesen 

L5B Prüfsumme lesen 

‚mit errechneter Prüfsumme vergl. 
‚ungleich, LOADING ERROR ausgeben 
ıMSB Prufsumme lesen 

mit errechneter Prüfsumme vergl. 
‚ungleich, LOADING ERROR ausgeben 
;Programmendadresse speichern 
Interrupts wieder einschalten 
sCR - LF ausgeben 


Joti 
3664 
3667 
3669 


IAC 
J36CE 


36CF 
36D2 
36D5 
36D8 
3609 
J6Dt 
36DE 
36ER 


363 
3J6E6 
J6E8 
J6E9 
J6Et 
36ER 
36F2 
J63 
36F8 
J6rB 
36FE 
3701 
3782 
3783 
3784 
3786 
3707 
3788 
JTA 
370D 
370E 


3741 
3714 
3715 
3718 


cD 88 30 
JADE TA 
FE FI 
20 84 


A 1E 78 


mM po 
~O 


B7 

28 84 

23 

13 

16 F7 

21 E7 79 
AF 

C3 Bi 1A 


21 4A 38 
FB 
CD A7 28 
F3 


CALL  3B8BH 

LD Às (7ADZH) ıProgramm-Kennung laden 
cp QFIH sein Maschinenprogranm ? 
JR NZ, 36CFH nein! 


Maschinenprogramm starten 
LD HL, (7B1EH) ‚Stäartadresse laden 


JF {HL) und anspringen 

BASIC - Programm 

LD HL, 1929H iText "READY" adressieren 
CALL  28A7H ‚und ausgeben 

LD HL, (78A4H) ‚Programm-Startadresse laden 
PUSH HL ‚und auf den Stack 

LD HKL, 7839H ‚Flag 2 adressieren 

BIT 6 (HL) ıCRUN-Flag gesetzt ? 

JR NZ, 36E3H 1Ja, anstarten 

JP 1AESHH ‚nein, zur Hauptschleife 
BASIC-Programm starten 

LD HL, 7839H ‚Flag 2 adressieren 

RES & (HL) sCRUN-Flag löschen 

POP DE ‚Programm-Startadresse laden 
CALL  1AFCH ‚Zeilenzeiger erneuern 

CALL  79B5H ;RAM-Erweiterungsausgang 
CALL  1B5DH ;Variablen-Tabelle löschen 
CALL  7BBBH ;RAM-Erweiterungsausgang 

LD HL,BFFFFH sakt, Zeilennummer = Direktbefehi 
LD (78A2H) HL 

LD HL, 79EBH ‚1/0-Puffer adressieren 

LD DE, 8570H ;RUN-Befehl adressieren 

LD As (DE) sund in I/0-Puffer übertragen 
LD (HL) À 

OR À Ende ? 

JR Z, 370AH iJa; fertig 

INC HL ‚Pufferadresse + i 

INC DE ‚Textadresse + I 

JR 3701H ‚nächstes Zeichen 

LD HL, 79E7H ‚1/0-Puffer - I adressieren 
OR À 

JP 1A81H sRUN-Befehl ausführen 


Meldung über Ladefehler ausgeben 


LD HL» 384AH ‚Text "LOADING ERROR" adressieren 
Ei sInterrupts einschalten 

CALL  28A7H iText ausgeben 

DI j Interrupts einschalten 
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3719 
371C 
371D 
3728 
3723 
3726 
3728 
3728 


372E 
3T2F 
3732 
3734 
3735 


3738 
3739 
373C 
373E 
373F 


3742 
3743 
3746 
3747 
3749 
3746 
374F 


3752 
3753 
3754 
3755 


JA 4C 7B 
B7 

CZ 67 36 
żi FF 71 
22 28 78 
JE IF 

32 Ab 78 
C3 67 36 


E5 

21 39 78 
CR F6 

El 

(3 5F 36 


E5 

21 39 78 
CB DE 

Ei 

C3 SF 3% 


EB 

cD 75 37 
BE 

28 9 

21 66 37 
CD A7 28 
c3 83 Bi 


23 
BB 
79 
BO 


LD 
ÖR 
JP 
LD 
LD 
LD 
LD 
JP 


Às (784CH) 
A 

NZ, 3667H 
HL, 71FFH 
(7820H), HL 
Âdil 
(TBA6H) A 
3667H 


sAusgabe-F lag laden 

=8? 

jnein, weitere Textausgabe unterdr. 
‚Cursor auf letzte Zeichenstelle 


ıSpaltenzeiger auf letzte Spalte 


‚noch einmal versuchen 


RR: 


CRUN - Anweisung 
einlesen und starten eines Programes 


PUSH ML 

LD HL, 7839H 
SET — é (HL) 
POP HL 

JP 365FH 


iProgrammzeiger auf den Stack 
ıFlag 2 adressieren 
sCcRUN-Flag setzen 
;Programmzeiger laden 


RR RE 


VERIFY - Anweisung 
prufen eines Programms auf Kassette 


PUSH HL 

LD HL, 7839H 
SET J (HL) 
POP HL 

JP J65FH 


iProgrammzeiger auf den Stack 
iFlag 2 adressieren 
;VERIFY-Flag setzen 
‚Programmzeiger laden 


FERIE AEE AE dE FE FEE IEEE FEAE AE EAE AEAEE AE E EAE F Fe FE dE EFE EEE 


VERIFY - Forsetzung nach gemeinsamer Routine mit CLOAD 


EX 
CALL 
CP 
JR 
LD 
CALL 
JP 


INC 
DEC 
LD 
OR 


DE,HL 
3775H 
(HL) 
1,3752H 
H.,376CH 
28A7H 
8183H 


HL 
BC 
Art 
B 
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HL = Programa-Startadresse 
iByte von Kassette lesen 

{= Programabyte ? 

jja! 

iText "VERIFY " adressieren 
jund ausgeben 

‚Text "ERROR" ausgeben 


}Programmadresse + I 
iBytezähler - 1 
ifertig ? 


3756 
3758 
3758 
375D 
3768 
3763 
3766 
3769 


3766 
376D 


3774 


3775 
3776 
3777 
3779 
377C 


3788 
3781 
3782 
3785 
3788 
3788 


378C 
3780 
378E 


3798F 
37 
3793 
37% 
3778 


20 EB 

21 39 78 
CR IE 

21 66 37 
CD A7 28 
21 88 8 
CD A7 28 
C3 CF 36 


8D 

56 45 52 49 
4b 59 20 

29 


B1 FF 97 
JA 80 68 
cB 77 
28 08 


DEFB 


DEFB 


NZ, 3743H 
HL, 7839H. 
3, (HL) 
HL, 376CH 
28A7H 
HL, BIBBH 
2BA7H 
J6CFH 


BDH 
VERIFY ’ 


snein, năchstes Byte 

Flag 2 adressieren 
WWERIFY-Flag löschen 

{Text "VERIFY ® adressieren 
jund ausgeben 

;Text "OK" adressieren 

jund ausgeben 

szuruck ins BASIC 


Textdefinition "VERIFY® 


RR EEE 


Byte von Kassette lesen 


Ausg.: ÀA = gelesenes Byte 
Carry gesetzt, wenn Lesefehler 


PUSH BC 

PUSH DE 

LD B,8 

CALL  378FH 

JR C, 378CH 
DJNZ 3779H 

POP DE 

POP BC 

LD {7AD3H),A 
CALL  3AF8H 

LD As (7AD3H) 
RET 
Fehler-Rucksprung 
POP DE 

POP BC 

RET 


jRegister sichern 


sBitzähler = 8 

sein Bit lesen 
iLesefehler! 

nächstes Bit 
;Register wieder laden 


sgelesenes Byte sichern 
sBREAK-Taste prüfen 
ıgelesenes Byte wieder laden 
fertig 


‚Register wieder laden 


FERIE REE AEAEE AEA FEAE EAEE AE EE AEE FE IE IE FEE AE FE IE E EAE AEE E 


Bit von Kassette lesen 


PUSH 
LD 
LD 
BIT 
JR 


BC 

BC, 07FFH 
À, (6BBOH) 
bA 

1, 37A2H 
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BC sichern 

‚Wert fur Zeituberwachung laden 
‚1/0-Port laden 

i0 - Pegel ? 

Ja, weiter 


379A 
3798 
37% 
379D 
379F 
3740 
37A1 


37A2 
37A5 
37A7 
3749 
37AC 
37AE 
3788 
37B2 
37B4 
3787 
3789 
37BB 
J7BE 
3708 
3762 


37C4 
37Ch 


37CB 
37CD 
37CF 
37D1 
3702 
3703 


3706 
3707 


3709 


37DA 
37DD 


J7El 


JA 88 68 
CB 77 
28 EA 
JA 88 68 
GB 77 
20 E3 
B6 52 
18 FE 
JA 08 68 
CB 77 


JA 88 68 
CR 77 


18 cc 


JA 08 68 
CB 77 


JA BO 68 


DEC BC sZeitwert - I 

LD Ast Zeit abgelaufen ? 

OR B 

JR NZ, 3793H ‚nein, nochmals lesen 

POP BC ‚BC wieder vom Stack herstellen 
SCF ‚Carry-Flag setzen 

RET }Fehler-Rucksprung 

Prüfen, ob Clock-Puls 

LD Å, (6880H) ;1/ö-Port laden 

BIT 5A 1 - Pegel ? 

JR NZ, 3793H $da, -Pegel zu kurz’ 

LD À; (6BBBH) ;1/6-Port laden 

BIT bÀ si - Pegel ? 

JR NZ, 3793H ijas @-Pegel immer noch zu kurz 
LD 3.82 i308 us Verzögerung 

DJN2 3782H sum neg.-Puls zu übergehen 
LD Ay {6BB0H) ;1/0-Port laden 

BIT 6A ‚Jetzt i-Pegel ? 

JR NZ, 37C4H iJa, korrekter Clock-Puls 
LD A, (68804) ı1/0-Port laden 

BIT GA Pulswechsel ? 

JR 2, 37BBH sauf Pulsende warten 

JR 3798H ;kein korrekter Clock-Puls 
Anzahl Pulse messen 

LD B:98 ‚Zähler auf I ms setzen 

LD (‚8 jErgebnis-Register löschen 
LD À, (6880H) ;1/0-Port lesen 

BIT A auf negative Flanke warten 
JR 1, 37DAH yda ist sie! 

DJNZ  37C8H wieder lesen 

Anzahl Pulse - I = Ergebnis-Bit 

LD Act Anzahl Pulse in A 

DEC Å ii 

RRA ‚niederw. Bit ins Carry 

RL D starry-Bit in D (Byte sammeln) 
POP BC ıBC wiederherstellen 

LD AD jErgebnis von D in A übertragen 
OR Å ‚Carry-Flag löschen 

RET sfertig 

Pulsstabilität prüfen und auf evtl. 2. Puls warten 
LD Ár (6800H) ;1/0-Port laden 

BIT A wieder auf i-Pegel? 

JR NZ, 37CFH }Ja,s zu kurz! 

LD As (6800H) - - -- 51/0-Port laden 
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37E4 
37b 
37EB 
37E9 
JJEC 
37EE 
37F@ 
37F2 


37F4 
37F7 
37F8 
37F9 
37FC 
J7FE 
J891 
3802 


3807 


3809 
Jag 
380D 


JBAF 
3818 
3811 
3812 


3814 
3817 
3818 
3819 
381C 
381D 
3828 
3822 


GB 77 

28 E7 

ac 

JA 00 58 
CB 77 

28 DF 

18 F7 

18 DD 


JA 4C 78 
B7 

cB 

ii EB 7i 
B6 28 

cD Fé 3E 
13 

18 FA 

JA 4C 78 
B7 

co 

CD BE 3F 
7E 

B7 

cS 

12 

13 

23 

18 F8 


JA 4C 78 
B7 

cè 

11 E9 71 
E5 

3A D2 7A 
E6 BF 

21 3F 38 
85 


BIT 
JR 
INC 
LD 
BIT 
JR 
DUNZ 
JR 


bå 

NZ, 37CFH 
c 

Å, (6800H) 
bA 

NZ, 37CFH 
37EIH 
37D1H 


wieder auf 1-Pegel? 

1Ja, immer noch zu kurz! 
;Pulszähler + I 

ı1/0-Port laden 

Puls-Ende ? 

ıJa, evtl. 2, Puls erfassen 
Zeit abgelaufen ? 

ija; Anzahl Pulse auswerten 


FHHHHHHHHHHHHHHHHEHEHE EHHE EE E 


letzte Bildzeile löschen und Meldung ausgeben 


LD 
OR 
RET 
LD 
LD 
CALL 
INC 
DJNZ 
LD 
OR 
RET 
CALL 
LD 
OR 
RET 
LD 
INC 
INC 
JR 


A, (784CH) 
A 

NZ 

DE, 71E0H 
B, 32 
3EF&H 

DE 

37FEH 

ÀA, (784CH) 
A 

NZ 

3FBEH 

As (HL) 

A 

Z 

(DE), A 
DE 

HL 

3BBCH 


sAusgabe-Flag laden 

0? 

nein, keine Ausgabe! 
letzte Zeile adressieren 
;Zeilenlänge als Zähler 
Leerzeichen in letzte Zeile 


;Ausgabe-Flag laden 

8? 

‚nein, keine Ausgabe! 
sabh.vom Hintergrund ggf. invertiert 
;Textzeichen laden 

ıTextende ? 

ija, fertig! 

sıns Bild übertragen 
sBildadresse + 1 
‚Textadresse + | 

nächstes Zeichen übertragen 


FEIE FEAE IEE AEAEE AE AEAEE E AE FE EAE FEAE HE IE -FEAE E FEFE EAEE E EE EEEE 


Prograrm-/Datei-kennung und Namen ausgeben 


LD 
OR 
RET 
LD 
PUSH 
LD 
AND 
LD 
ADD 


A, (7BACH) 
A 

NZ 

DE, 71E9H 
HL 

A, 17AD2H) 
BFH 

HL» 382FH 
Al 
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sAusgabe-Flag laden 

8? 

‚nein, Ausgabe unterdrücken 
‚Bildposition in letzter Zeile adr. 
Adresse des Namens sichern 
;Programmkennung laden 

‚oberes Halbbyte löschen 
iKennungstabelle adressieren 

$+ Kennung 


3926 
3827 
3829 
382A 
3828 
J02E 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3B3A 
3838 
383C 
383E 


JB3F 


3842 


3849 


384A 


JB4B 


3858 


385A 
385F 


6f 

JE 88 
8c 

67 

cD 21 3F 
20 28 

12 

13 

13 

Ei 

TE 

B7 

c8 

CD 33 3F 
13 

23 

18 Få 

c9 


14 82 04 


37 41 49 54 
49 4E 47 
aa 


8D 

AC AF Ai 44 49 
4E 47 20 45 52 
52 4F 52 

aD 2 


46 AF 55 4E 44 


AC AF hi hh 
49 4E 47 
a 


LD 
LD 
ADC 
LD 
CALL 


2 x NOP 


LD 
INC 
INC 
POP 
LD 
OR 
RET 
CALL 
INC 
INC 
JR 
RET 


LA 

A,B 

ÀH 

HA 

SF2iH ıKennung abh.vom Hintergrund ausg. 
(DE); À PP als Trenner ausgeben 

DE ‚Bildadresse + 2 

DE 

HL Adresse des Namens laden 

A, (HL) Zeichen aus Nasen laden 

A ‚Ende ? 

Z iJa, fertig ! 

JF33H Zeichen abh.vom Hintergrund ausg. 
DE sBildadresse + | 

HL ıNamens-Adresse + i 

3834H nächstes Zeichen 


‚unbenutzt 


Kennungs-Tabelle 


DEFB 


14H, 82H, 84H Codes für T, B, D 


FERE IEE HEFE EE AE HE AE FE AE FEAE 1E EAE AE AERE FE AE AE FEAE FEAE AE E E EEEE EE 


Textdefinitionen für Kassetten-Rautinen 


DEFM 


DEFB 


DEFB 


DEFM 


DEFB 


DEFM 
DEFB 


DEFM 


DEFB 


WAITING? 

8 

BDH 

"LOADING ERROR’ 
BDH, BOH 


FOUND’ 
a 


LOADING’ 


FERIE IESE AEAEE AEAEE EAEE EAE FEAE AEE EEE EEEE EEE EEEE 
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3868 


Jat 
3860 
3978 
3871 
3974 
3877 
3878 
3879 
387 
387F 
3888 
3881 
3884 
3897 
3888 
3887 
388C 
3880 


J89E 
3871 
3894 
3896 
3899 
389C 


389D 


3848 
38A2 
3BA5 


CD 75 37 
D8 
5F 
DD 77 %8 
AF 
DD 77 Bi 
cD 75 37 
D8 
57 
CD BE 38 
cD 75 37 
D8 
oF 
CD BE 38 
cD 75 37 
D8 
67 
CD BE 38 
B7 
c9 


DD 86 88 
DD 77 08 
JE 09 

DD 8E Bi 
DD 77 0i 
67 


TE 

FE 2C 

28 28 

CD iC ZB 
B7 

CA 4A 1E 


Start- und Endadresse von Kassette lesen 


CALL 
RET 
LD 
LD 
XOR 
LD 
CALL 
RET 
LD 
CALL 
CALL 
RET 
LD 
CALL 
CALL 
RET 
LD 
CALL 
OR 
RET 


3775H 
c 

EsA 
IX A 
À 
(IX+1),A 
3775H 
£ 

DA 
JBBEH 
3775H 
c 

L;A 
JBBEH 
3775H 
c 

HA 
JBBEH 
À 


‚Byte lesen 
ıLesefehler! 

LSB Startadresse in E 
und in LSB Prüfsumme 
ıMSR Prüfsumme = B 


Byte lesen 

iLesefehler! 

ıMSB Startadresse in D 

‚und auf Prufsumme addieren 
Byte lesen 

ıLesefehler! 

LSB Endadresse in L 

sund auf Prüfsumme addieren 
Byte lesen 

Lesefehler! 

;MSB Endadresse in H 

sund auf Prüfsumme addieren 
Carry-Flag löschen 

fertig 


RR AE E FE HE E HEIE BEHEE IERE AE E EE EE 


Prufsumme ermitteln 


Eing.: IX = Adresse der Prüfsummen-Bytes 
= eingelesenes Byte 


ADD - 


LD 
LD 
ADC 
LD 
RET 


As (IX) 
(IX) À 
A0 

Âs (IX+i) 
(IX+1),A 


ıL5R Prüfsumme auf Zeichen addieren 
‚und wieder speichern 

A=8 

{MSB Prüfsumme auf Carry addieren 
sund wieder speichern 

fertig 


ROHR E 


COLOR - Anweisung 


LD 
CP 
JR 
CALL 
OR 
JP 


As (KL? 


$i 
? 


2, 38C2H 
ZRICH 

A > 
Z, 1E4AH 
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‚nächstes Programazeichen laden 
ı= Komma ? 

ijas nur Hintergrund ändern 

si. Ausdruck auswerten 

87? 

+Jas FUNCTION CODE - Error 


3849 
JBAB 
JBAE 
IBAF 
J8Bi 
JBB3 
38B5 
3887 
3889 
388C 
J88D 
388E 
JBRF 
3861 
3862 
3863 
38C4 
3867 
JBC 
3BCA 
38CD 
JBCF 
3802 
3805 


J8D4 
3808 
J8DE 
J8DE 


JBE3 
JBE6 


JBE7 
38E9 
JBEB 
J8ED 
38EE 
SBEF 
J8F0 
J8F1 


FE 89 

Dz 4A 1E 
3D 

E6 07 

CB 27 

CB 27 

CB 27 

CB 27 

32 46 78 
TE 

E7 

c8 

FE 3A 

c8 

CF 

2E 

CD 1C 2B 
B7 

20 BC 

JA 3B 78 
CB A7 

32 38 78 
32 28 68 
c? 


FE Bi 

C2 4A 1E 
JA 38 78 
CB E7 

32 3B 78 
32 08 68 
19 


BE CB 
CB 09 
18 FC 
1A 
Al 
47 
79 
CB 88 


cp 
JP 
DEC 
AND 
SLA 
SLA 
SLA 
SLA 
LD 
LD 
OR 
RET 
CP 
RET 
RST 
DEFB 
CALL 
OR 
JR 
LD 
RES 
LD 
LD 
RET 


CP 
JP 
LD 
SET 
LD 
LD 
RET 


9 
NC, 1E4AH 


Pr -pr res > 


{7846H}, À 
As (HL) 
À 


.- m yN 
.n 


K 
ZBICH 
A 
NZ, 38D6H 
A, {783BH) 
ha 
(783BH),A 
(6BBAH) ,A 


1 

NZ, 1E4AH 
A, (783BH) 
a 
(T83BH),A 
(68884), A 


9? 

iJa; FUNCTION CODE - Error 
‚Farbcode - 1 

sauf @ - 7 beschränken 

‚ins obere Halbbyte schieben 


‚und abspeichern 
‚nächstes Zeichen laden 
Zeilenende ? 

tJa; fertig! 
iKonmando-Ende 7 

ija; fertig! 

‚nächstes Zeichen Komma ? 


}Ja, 2. Ausdruck auswerten 
8? 

nein! 

‚1/0-Latch Byte laden 
Hintergrund auf grün setzen 
wieder speichern 

‚und über 1/0-Port ausgeben 
‚fertig 


17 

‚nein, FUNCTION CODE - Error 
1/0-Latch Byte laden 
‚Hintergrund auf rot setzen 
jwieder speichern 

sund uber 1/0-Port ausgeben 
fertig 


RAR E 


Ergänzungroutine zur POINT-Funktion 


LD 
RRC 
DJNZ 
LD 
AND 
LD 
LD 
RRC 


COCOH 
C 
JBE9H 
A, (DE) 
c 

BA 
ÀC 

B 
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;2-Bit Maske laden 

‚entsprechend der Pixel-Steilung 
sim Byte nach rechts schieben 
;Byte aus Grafikspeicher laden 
mit Maske verknüpfen 

Ergebnis in B sichern 

‚Maske in A laden 

Byte und Maske soweit rechts 


JBF3 
J8F5 
3487 
J8F9 
JBFA 
JFB 
Jört 
J8FF 
3708 


3903 
3904 
3985 
3986 
3987 
3988 
3999 
390C 
390D 
IE 
IMF 
3918 
3911 


3912 
3913 
3914 
3917 
3919 


3% 

3914F 
3921 
3923 
3924 
3925 
3928 
3928 


CB BF 

FE 83 

z0 F8 

78 

st 

£5 

cD 8D) 89 
Ei 

C3 or 39 


47 
1A 
Al 
12 
Fi 
E7 
F2 oF 39 
1A 


12 
CF 


29 


F3 

E3 

3A 3B 78 
CB 5F 

C2 BE 39 


21 08 70 
BE 18 
26 2 

7E 

B7 

F2 2D 39 
cD 73 2C 
18 16 


RRC 
cP 
JR 
LD 
INC 
PUSH 
CALL 
POP 
JP 


A 
3 


NZ, 38F 1H 


AB 
À 

HL 
8978DH 
HL 
JIBFH 


‚schieben, bis Maske ganz rechts 
prüfen ob Maske rechts 

weiter schieben! 

‚Farbcode aus B laden 

it f fur Ergebnis (1-4) 
iProgrammzeiger auf den Stack 

3A in ib-Bit Integer umwandeln {X) 
;Programmzeiger wieder laden 
iprufen, ab ’)’ folgt 


ERRERA IEEE AEAEE HE EE EEE EAE EEA EE EEE 


Ergänzungs-Routine zur SET- und RESET-Anweisung 


LD 
LD 
AND 
LD 
POP 
OR 
JP 
LD 
OR 
LD 
RST 
DEFR 
RET 


BA 

A (DE) 
C 
(DE), A 
AF 

À 

P, 390FH 
Às (DE) 
B 
(DE), À 
8 

2y? 


;SET-Maske in B übertragen 
Byte aus Bildspeicher laden 
‚Bits für adr. Pixel löschen 
Byte zurückschreiben 
;Funktions-Flag laden 
;RESET-Anweisung ? 

ija, fertig! 

ıSET, Byte wieder laden 
‚Bits für adr. Pixel setzen 
Byte zurückschreiben 
‚Paraneter mit ’)’ abgeschlossen ? 


ida; fertig 


TRAGEN 


COPY - Anweisung 


DI sInterrupts ausschalten 

PUSH HL ;Programmzeiger auf den Stack 
LD A, (783BH) ;1/0-Latch Byte laden 

BIT IA ‚Rechner im Grafik-Modus ? 

JP NZ, 398EH 1Ja, Grafikausgabe 
Bildschirmausgabe im Textmodus 

LD HL, 7BBAH Bi ldanfangsadresse 

LD C i6 sleilenzähler = 16 

LD 3,32 ;Spaltenzähler = 32 

LD A, (HL) Zeichen aus Bildspeicher laden 
OR À sBlockgrafik - Zeichen? 

JP P, 392DH jnein! 

CALL  2C73H Ausgabe von Blockgrafik 

JR 3943H 
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392 

3938 
3931 
3933 
3936 
3938 
3934 
393C 
393E 
3948 
3943 
3944 
3946 
3948 
394B 
394E 
3994F 
39750 
3931 
3953 
3954 
3933 


3956 
3957 
3958 
3959 
395A 
39538 
395D 
395F 
3962 
3964 
3965 
3966 
3967 
3969 
3768 
396C 
396D 
3978 
3971 
3973 
3975 


C3 44 IF 
20 

E6 SF 

CD 56 39 
18 ØB 

E& Sf 

CR 6F 

20 02 
Fó 48 

CD BA 3A 
23 

18 DD 

JE 0D 

CD BA 3A 
CD FO 3A 
aD 

79 

B7 

28 CE 

Ei 

FB 

9 


F5 

65 

D5 

E5 

oF 

26 00 

JE 88 

CD BA 3A 
B6 84 

E5 

Di 

B7 

ED 5A 

18 FC 

E5 

6 

21 94 3B 
87 

3E FF 

CD BA 3A 
86 85 


JP 
NOP 
AND 
CALL 
JR 
AND 
BIT 
JR 
OR 
CALL 
INC 
DJNZ 
LD 
CALL 
CALL 
DEC 
LD 
OR 
JR 
POP 
EI 
RET 


3F44H 


JFH 
3956H 
3943H 
3FH 

JÀ 

NZ, 3940H 
40H 
JABAH 

HL 

3923H 
AODH 
JABAH 
JAFBH 

C 

Ast 

À 

NZ, 3921H 
HL 


;Prufen, ob Zeichen invertiert ist 
‚wenn nein, Fortsetzung bei 3938H 
Bits & und 7 löschen 

‚Ausgabe invertierter Zeichen 


‚Bits 5 und 7 löschen 

sZeichen © IFH ? 

‚nein! 

1a, + 42H für echtes ASCII-Zeichen 
Zeichen auf Drucker ausgeben 
sBildadresse + I 

Zeilenende ? 

$da, CR/LF ausgeben 


iBREAK-Taste betätigt ? 
sZeilenzähler - 1 ? 
0? 


jnein, nachste Zeile 
‚Programmzeiger laden 
;Interrupts einschalten 
fertig 


Invertierte Zeichen ausgeben 


PUSH 
PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
CALL 
LD 
PUSH 
POP 
OR 
ADC 
DJNZ 
PUSH 
POP 
LD 
ADD 
LD 
CALL 
LD 


AF 

BC 

DE 

HL 
L;A 
H,8 
AB 
JABAH 
B,4 
HL 

DE 

À 

HL, DE 
3967H 
HL 

BC 
HL, 3B94H 
HL BC 
A BFFH 
JABAH 
8:5 


Register auf Stack sichern 


sauszugebendes Zeichen in HL 
sDrucker in Grafik-Modus schalten 


iZeichencode # 5 
sals Tabellen-Offset 


;Tabellen-Öffset in BC 


Tabelle f. invertierte Zeichen 

‚+ Offset 

si Reihe Punkte links des Zeichens 
jausgeben 

19 Punktreihen aus Tabeile 


3978 
3979 
397A 
397D 
397F 
3981 
3984 
3786 
3989 
378A 
3988 
398C 
J980 


398E 
398F 
3992 
3995 
3997 
399A 
399E 
J9A1 
3944 
J37A6 
39A9 
JAA 


39AD 
SIAF 
3980 
3981 
3982 
3983 
3985 
3987 
3989 
JIBR 
398C 
39BE 
391 
3%2 
3963 
3905 
3967 


TE 

23 

CD BA 3A 
18 F9 

JE FF 

CD BA 3A 
JE ØF 

CD BA 3A 
El 

Di 

cl 

Fi 

c9 


AF 

32 D6 7A 
32 D6 7A 
JE 28 

CD BA 3A 
DD 21 D2 7A 
21 88 70 
11 28 28 
BE Ca 

CD F8 3A 
E5 

cD C9 05 


B6 83 
TE 

Al 

c5 

47 

CB 88 
CB 88 
CB 09 
CB 09 
79 

FE 83 
(2 83 39 
78 

Ci 

FE 83 
z8 8D 
FE 82 


‚ausgeben 


$1 Reihe Punkte rechts des 
Zeichens ausgeben 

‚Drucker wieder in Text-Modus 
‚schalten 

‚Registerinhalte wiederherstellen 


‚fertig! 


Bild im Grafik-Modus ausdrucken 


Intervallzähler rücksetzen 


iDrucker in Grafik-Modus 
‚schalten 

Anf.adresse Grafik-Puffer laden 
;Bildanfangs-Adresse laden 
‚Druck-Pattern rücksetzen 

Bits 4,7 in Shift-Maske setzen 
BREAK-Taste gedrückt ? 
;Bildadresse auf den Stack 
;Grafik-Puffer löschen 


Jeweils 3 Zeilen in einen Grafikzeichen kombinieren 


LD As (HL) 
INC HL 

CALL  JABAH 
DJNZ 3978H 
LD A,BFFH 
CALL  JABAH 
LD À, BFH 
CALL  3ABAH 
POP HL 

POP DE 

POP BC 

POP AF 

RET 

XOR A 

LD (FADH); A 
LD {7AD6H) A 
LD À;8 

CALL — JABAH 

LD IX, (7AD2H) 
LD HL, 7BOBH 
LD DE, 8 

LD COCOH 
CALL  3AFBH 
PUSH HL 

CALL  25C9H 

LD Bı3 

LD As (HL) 
AND c 

PUSH BC 

LD BA 

RRE B 

RRE B 

RE c 

RE c 

LD AC 

EP 3 

JP NZ, 39B3H 
LD A,B 

POP BC 

CP 3 

JR 2, 39D4H 
cp 2 


Zeilenzähler = 3 

Grafik-Byte aus Bildspeicher laden 
mit Shift-Maske I Pixel auswählen 
‚Zähler + Shift-maske auf Stack 
‚das ausgewählte Pixel in B 
‚mithilfe der SHIFT-Maske so oft 
rechts rotieren, bis die zwei 
;Pixel-Bits in den Bitpositionen 

i6 und 1 stehen 


‚Maske rechtsbündig ? 

‚nein, weiter schieben 

‚Pixel wieder in A 

Zähler + Shift-Maske wieder laden 
‚Pixel-Farbe = rot ? 

jja! 

;Pixel-Farbe = blau ? 





28 BE 
FE Bi 
28 18 
11 82 08 
i8 OF 
11 EB EB 
18 2A 
16 48 
1E AB 
18 84 
16 AB 
IE 48 


DD 7E 88 
CB 3F 

CB SF 

CB SF 

E5 

21 D3 7A 
CD bA 3A 
Ei 

B2 

DD 77 08 
DD 7E 8 
GB JF 

CB FF 

CB JF 

E5 

2105 7 
CD 6A 3A 
El 

B3 

DD 77 82 
JE 20 

85 

oF 

JE 88 

8c 

67 

18 58 

CD 73 3A 


Ei 
GB 39 


JR 2, 39D9H ya! 

cP 1 ‚Pixei-Farbe = gelb ? 

JR 7, 39DFH Ja! 

LD DE, 0 grun - Druck-Pattern = B000 setzen 
JR 3IE3H 

LD DE, BEBEBH ‚rot - Druck-Pattern = EBEG setzen 

JR 3IEIH 

LD D, 40H sblau - Druck-Fattern = 4QAB setzen 
LD E, BARH 

JR 39E3H 

LD D, BAGH gelb - Druck-Pattern = BA4B setzen 
LD E, 40H 

Druck-Pattern aus drei Zeilen kombinieren 

LD A (IX) yi. Byte aus Puffer laden 

SRL À ‚Bits vorherg. Zeile J Bitpos. 

SRL À irechts schieben 

SRL À 

PUSH HL Bildadresse’ sichern 

LD HL, 7AD3H sarafik-Puffer + 1 

CALL  JAbAH wenn Carry, in Pufferadr.+i übern. 
POP HL ‚Bildadresse’ laden 

OR D ;Byte I der Druck-Pattern in Puffer 
LD {IA si. Puffer-Ryte zurückschreiben 

LD A,tIX+2) $3. Byte aus Puffer laden 

SRL À ‚Bits vorhera. Zeile 3 Bitpos. 

SRL A rechts schieben 

SRL À 

PUSH HL ;Bildadresse’ sichern 

LD HL, 7ADSH sarafik-Puffer + 3 

CALL  3AGAH wenn Carry, in Pufferadr.+3 übern. 
POP HL ıBildadresse’ laden 

OR E Byte 2 aus Druck-Pattern in Puffer 
LD (IX+2),A 13. Puffer-Byte zurückschreiben 

LD À, 32 ;Bildadresse’ + | Zeile 

ADD ÀL 

LD L;A 

LD A0 

ADC A,H 

LD HA 

DINZ  3A67H ;3 Zeilen bearbeitet ? 

CALL  3A73H iJa; ausdrucken! 

die nächsten 3 Pixel in derseelben Zeile 

POP HL iBildadresse laden 

SRL £ iShift-Maske 2 Bits 
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JA1D 
JAIF 
JA20 
3421 
3423 
JA24 
3A25 
3A27 
JA2A 


JA2D 
3A30 
JA31 
JA33 
JA35 
3436 
3439 
3A3B 
JA3D 
JASF 
JA41 
JA42 
JA43 
JA45 
JA46 
3A47 
3A49 
JA4C 
JA4E 
JA51 
3A52 
JA54 
3457 
3459 
Ast 


Höf 
JA61 


JA65 


JA67 


CB 39 

79 

B7 

20 83 

23 

7D 

E6 IF 

C2 A4 39 
CD E2 3A 


JA Do 7A 
3c 

FE 83 

20 Bi 

AF 

32 D6 7A 
20 84 

JE 48 

18 82 

JE 20 

85 

6F 

JE 08 
ac 

67 

FE 78 
D2 5F 3A 
FE 77 

C2 A4 39 
7D 

FE EB 
DA A4 39 
JE FF 

32 D6 7A 
C3 A4 39 


JE QF 

cD BA 3A 
El 

FB 

c9 

C3 AF 39 


D2 70 3A 


‚rechts schieben 
;3-Byte-Reihe fertig bearbeitet ? 


‚nein, nächste Reihe im selben Byte 
ijas, Bildadresse + i 
Ende der Zeile ? 


nein, nächstes Byte 
sCR/LF für neue Zeile ausgeben 


;intervallzähler laden 

iti 

j4. Zeile ? 

‚nein! 

sIntervallzähler = 8 

‚neuen Wert in Intervallzähler 


A = Länge von zwei Zeilen 


;A = Länge einer Zeile 
;HL + eine o. zwei Zeilen 


außerhalb des Bildes ? 
ija, fertig! 

letzte Zeile ? 

‚nein! 


‚nein! 

Kenner 'letzte Zeile’ setzen 
‚nächste Zeile ausdrucken 
Drucker in Text-Modus schalten 


;Programmzeiger laden 
ıInterrupts einschalten 


.sfertig! 


SRL £ 

LD Arc 

OR A 

JR NZ, 39A6H 
INC HL 

LD AL 

AND iFH 

JP NZ, 39A4H 
CALL  3AE?H 
nächste Zeile adressieren 
LD A, (7ADAH) 
INC À 

cP 3 

JR NZ, 3A36H 
XOR A 

LD (7AD5H) A 
JR NZ, 3A3FH 
LD 64 

JR 3A4IH 

LD A132 

ADD AL 

LD L;A 

LD A0 

ADC ÀH 

LD HA 

cP 78H 

JP NC, 3ASFH 
cP TH 

JP NZ, 39A4H 
LD Al 

CP BEBH 

JP 6, 3IA4H 
LD A,BFFH 
LD (7AD&H) „A 
JP J9A4H 
Graf ik-Ausdruck erstellt! 
LD ArBFH 
CALL  3ABAH 
POP HL 

EI 

RET 

JP 39AFH 


was soll das ? 


bei SHIFT aufgetretenes Carry ins nächste Puffer-Byte 
JP NC, 3A78BH 
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skein Carry! 


JAGD 
JAGF 
3A70 
3A72 


3A73 
JA76 
JA7B 
3A7A 
3A7D 
3A7F 
JA81 
JAB4 


JAB2 


JAB4 


CR Co 
c? 
CR 86 
c9 


cD 85 3A 
DD 23 
DD 23 

cD 85 3A 
DD ZB 

DD 28 

CD 85 3A 
(9 


DD 7E Bi 
CB OF 
DD 7E 88 
F5 

3A DA 7A 
FE 82 

28 1D 

FE 8i 

28 16 

Fi 

17 

F5 

3A D6 7A 
FE FF 

28 05 

Fi 

E6 87 

18 81 

Fi 

F& 88 

CD BA 3A 
c9 


Fi 
18 E9 


Fi 
if 
18 E5 


‚carry, Bit B im n. Puffer-Byte = 1 


‚Bit O im nächsten Puffer-Byte = 8 


‚Puffer i+2 ausgeben 


‚Puffer 3+4 ausgeben 


Puffer 1+2 ausgeben 


eine Punktreihe für Grafik-Druck ausgeben 


SET B, {HL) 
RET 

RES DHL?) 
RET 
Gratik-Puffer ausgeben 
CALL  3AB85H 
INC IX 

INC IX 

CALL  3A85H 
DEC IX 

DEC IX 

CALL — 3A85H 
RET 

LD Às (IX+i) 
RRC A 

LD A (IX) 
PUSH AF 

LD A, (7ADSH) 
cP 2 

JR Z, 3AB2H 
CP i 

JR Zy 3AAFH 
POP AF 

RLA 

PUSH AF 

LD A, {7AD6H) 
cP BFFH 

JR NZ, 3AABH 
POP AF 

AND 7 

JR JAA9H 
POP AF 

OR 88H 

CALL  3ABAH 
RET 

POP AF 

JR 3A9BH 
POP AF 

RRA 

JR 3AFBH 
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‚übertrag aus Puffer+i o. 3 laden 
sins Carry schieben 

;Puffer + @ oder 2 laden 

sauf Stack merken 
jIntervall-Zähler laden 

i3. Zeile ? 

jja! 

iż. Zeile ? 

jja! 

Puffer + @ oder 2 laden 
starry-Bit in niederw. Bitposition 
‚auszugebendes Zeichen merken 
ıIntervall-Zähler laden 

‚letzte Bildzeile ? 

jnein! 

sauszug. Zeichen wieder laden 
‚nur die unteren 3 Bits ausgeben 


sauszug. Zeichen wieder laden 
‚Bit 7 setzen 

sGrafik-Zeichen ausgeben 
sfertig! 


sauszugebendes Zeichen laden 
unverändert ausgeben 


‚auszugebendes Zeichen laden 
sübertrag in höchstw. Bitposition 
sund ausgeben 


JABS 
J3AB7 
JABA 
JABB 
JABE 
JACi 
JAC? 
JACI 
IAC4 
IAC 
JAC8 
JACA 
JACB 
JACD 
JACF 
JADI 
J3AD2 
JAD3 
3AD4 
JAD6 
JADB 
JADA 
3ADD 
JADF 


JAE2 
JAE4 
3AE7 


JAEB 
JAE9 
JAEC 
JAEE 
JAEF 


B7 

FA D8 3A 
F3 

CD EB 3A 
D2 C4 3A 
Fi 

37 

c9 

DB 20 

CB 47 

28 Fi 

Fi 

D3 BE 

D3 8D 

FE 8D 

37 

3F 

ca 

JE BA 

18 EZ 

CR 77 

CA 73 X 
E6 3F 

C3 56 39 


JE BD 
CD BA 3A 
c9 


B7 
JA FD 68 
CB 57 


JA DF 68 


RR 


Zeichen auf dem Drucker ausgeben 


OR À ‚Biockgrafik oder invertiert ? 

JP M, JADSH jja! 

PUSH AF sauszug. Zeichen sichern 

CALL  JAEBH ıBREAK-Taste gedrückt ? 

JP NC, J3AC4H jnein! 

POP AF sauszug. Zeichen laden 

SCF ‚Carry-Flag setzen 

RET sund zuruck 

IN A, (BB) Port 8 lesen 

BIT 2,A ¡BUSY ? 

JR NZ, 3ABBH ıJa, warten 

POP AF sauszug. Zeichen laden 

UT (BEH), A ;Byte ausgeben 

QuT (BDH),A ¿Strobe ausgeben 

cP BDH iCarriage Return ? 

SCF i5et Carry 
CCF ;Reset Carry | 
RET NZ jnein! | 
LD As BAH iLine-Feed ausgeben | 
JR JABAH 
BIT bA jinvertiertes Zeichen ? | 
JP 2,2C73H ‚nein, Biockgrafik ausgeben 

AND 3FH ‚Bits 4,7 löschen 

JP 3956H sinvertiertes Zeichen ausgeben 


FHF HEFE EIERE EIE AE AE 1E EE FEAE AE JEE AE HERE IE IE AEAEE E EEEE E 


Carriage-Return ausgeben (vom Treiber 544) 


LD A, BDH ‚Code für CR laden | 
CALL  3ABAH und asgeben | 
RET 


FEE AEAEE AE E AE EAE EAE E FE E AEE HE AEE FE AE FEFE AEE AEE IEE AEAEE FE E 


Prüfen, ob BREAK-Taste betätigt 
Ausg.: Carry=i, wenn gedrückt 


OR A ‚Carry löschen 

LD A, (6BFDH) Tastaturzeile 2 laden 
BIT 2A sCTRL-Taste ? 

RET NZ mein! 

LD Ás (68DFH)} Tastaturzeile 6 laden 
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JAFZ 
JAF3 
JAFS 
JAF6 
J3AF7 


JAFB 
JAFB 
JAFC 
JAF D 


3801 
J83 
J806 
3808 
3809 


3BOC 
JBOF 
3810 
3813 
3B16 
3B17 
3819 


JBIC 
JBiF 
3828 
3821 
3824 


CD EB 3A 
D8 

Ei 

Ei 

3A 39 78 
E6 87 

32 39 78 
JE Bi 

FB 

C3 AG iD 


JA 9C 78 
B7 

(2 64 21 
JA AF 7A 
B7 

20 FA 

(3 64 21 


3A AF 7A 
87 


JA Ab 78 
c9 


SCF sCarry-Flag setzen 

BIT ZA ıBREAK-Taste ? 

RET Z ida! 

EEF ‚nein, Carry-Flag löschen 
RET 


EITHER 


BREAK-Taste prufen 
wenn gedruckt, Programmausführung unterbrechen 


CALL  JAESH ;BREAK-Taste prüfen 

RET NC nicht gedruckt! 

POP HL }Rucksprungadresse entfernen 
POP HL ‚Programszeiger laden 

LD As (7839H) Flag 2 laden 

AND BB7H sCRUN- u. VERIFY-Flag löschen 
LD (78394) A Flag 2 speichern 

LD Art 

EI iInterrupts einschalten 

JP 1DABH ‚zurück zum MSIC 


RHEIN 


Rei Bildschirmausgabe warten, bis Ausgabepuffer 
vollständig ausgegeben wurde 


LD A, (789CH) ‚seräte-Typ laden 
OR À ;= 8 ? (Bildschirm) 
JP NZ:2164H mein, sofort zuruck 
LD As (7AAFH) ;Pufferzähler laden 
OR À $= @ ? (Puffer leer) 
JR NZ, 3B13H jnein, warten 

JP 2164H ija, zuruck 


HH 


wenn Bildausgabe-Puffer leer, Spaltenzeiger laden 


LD A, {7AAFH) ;Pufferzähler laden 
OR À Puffer leer ? 
RET NZ ‚nein, zuruck 
-LD A, (7BAGH) Ja, Spaltenzeiger laden 
RET 


RHEIN 
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3B25 
3828 
382A 
3B2C 
3B2F 
3831 
JB33 
3836 
3839 
3B3R 
JB3D 
3840 
3B42 
3B44 
3B47 


3B48 
JBA 
384C 
3B4D 
JB4E 
J850 
3853 


3854 
3857 


J858 
J859 
3B5A 
3B5t 


J3B5F 
3B62 
3B63 
JB64 
3B65 


21 EF 68 
CB 66 
20 18 

CD 48 3B 
CB 6 

28 FC 

CD 48 3B 
CD F8 3A 
CB 66 

20 F9 

CD 48 3B 
CB 66 

28 FC 

21 FF FF 
c? 


z1 FF 07 
28B 

7D 

B4 

20 FB 

21 EF 68 
9 


cD 11 35 
(9 


F3 

23 

BE F2 
cD 58 35 


DA FE 3A 
2% 
CF 
22 
CF 


Ausgabe-Unterbrechung bei List-Ausgabe 


LD 
BIT 
JR 
CALL 
BIT 
JR 
CALL 
CALL 
BIT 
JR 
CALL 
BIT 
JR 
LD 
RET 


HL, 68EFH 
4, (HL) 
NZ, 3B44H 
3B4BH 

4, (HL) 
2,3B2FH 
JB48H 
JAFBH 

å (HL) 
NZ, 3B36H 
JB48H 

4, (HL) 
2, 3B4BH 
HLABFFFFH 


Taste entpreilen 


LD 
DEC 
LD 
OR 
JR 
LD 
RET 


HL, 7FFH 
HL 

ÅL 

H 

NZ, 3B4BH 
HL,&BEFH 


Tastaturzeile 4 adressieren 
‚Leertaste betätigt ? 

‚nein! 

Taste entprellen 

warten, bis Taste Iosgelassen wird 


Taste entprellen 

ıBREAK-Taste gedrückt ? 

nein, Leertaste erneut betätigt ? 
Snein, warten 

{Taste entprellen 

warten, bis Taste losgelassen wird 


sakt.Zeilennumser = Direktkommando 


Zähler für Warteschleife 
Zähler - | 
8? 


‚nein, weiter zählen 
Tastaturzeile 4 adressieren 
fertig! 


RHEIN 


bei PRINT# Daten auf Kassette ausgeben 


CALL 
RET 


3511H 


Byte auf Kassette schreiben 


FEE EIE EHEER FE EAE HEE EAEE AE AE E AE E HEE AE AE AEE FEE AEA AEAEE EE 


bei PRINT# Vorspann auf Kassette schreiben 


DI 
INC 
LD 
CALL 


JP 
DEC 
RST 
DEFB 
RST 


HL 
C OF2H 
3558H 


C, 3AFEH 
HL 
8 


78? 


8 
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Interrupts ausschalten 
;Programmzeiger + 1 

Kenner für Daten laden 
‚Sync-Bytes, Vorspann, Kenner und 
Dateinamen auf Kassette ausgeben 
ıBREAK! Ende 

ıProgrammzeiger - I 

jist Dateiname mit ’"’ abgeschl. ? 


folgt dann ein Komma ? 


3B6h 
3B67 


3B68 
3869 
JB6A 
3BAD 
JB6E 
JBhr 
3870 
3871 
3872 
3873 
3876 
3879 
3B7C 
JB7F 
3882 
3884 
388A 
3887 


3888 
J888 
388D 
JBBE 
JESF 
3892 
3893 


3894 
3899 
389E 
JBA3 


zC 
c9 


F3 

23 

cD BC 35 
ZB 

CF 

22 

CF 

2C 

E5 

cD Bi 35 
21 42 38 
CD F4 37 
cD E7 35 
JA D2 7A 
FE F2 

z0 Fó 

Ei 

9 


cD 75 337 
FE 8D 

co 

F5 

cD F9 28 
Fi 

c? 


C1 BE A2 AE BI 
83 ED EE ED 83 
8B Bó B6 BA Ci 
Ci BE BE BE DD 


DEFE ’,’ 


idä; fertig! 


EEEE EdE dE E Ede dE E IE AEE AE H d JE E E HE dE HEE EE E EE E t 


bei INPUT# Vorspann und Dateinamen von Kassette lesen 


DI 

INC HL 

CALL 3580H 
DEC HL 

RST 8 

DEFB ’"’ 

RST 8 

DEFB ’,’ 

PUSH HL 

CALL 35BiH 

LD HL, 3847H 
CALL  37F4H 
CALL  J5E7H 

LD A, (7AD2H) 
CP OF2H 

JR NZ, 3B7CH 
POP HL 

RET 


;Interrupts ausschalten 
Programmzeiger + I 
Dateinamen übernehmen 
‚Programmzeiger - 1 

;Name mit ’"' abgeschlossen ? 


‚folgt dann ein Komma ? 


ida,; Programmzeiger auf den Stack 
‚Meldungsausgabe vorbereiten 
iText "WAITING* adressieren 

jund ausgeben 

Datei auf Kassette suchen 
;Datei-Kenner laden 

ikorrekt für Daten ? 

jnein, weiter suchen 

Ja, Programmzeiger laden 
fertig! 


FEE IEE E E AEA 1E FE AE AEAEE FE FEAE AEA FEAE FE AAE FE AE FE FE EAEE FEAE EEE E E 


Bei INPUT# Daten von Kassette lesen 


CALL 3775H 
CP BDH 
RET NZ 
PUSH AF 
CALL  20F9H 
POP AF 
RET 


‚Byte von Kassette lesen 
ıSatzende ? 

inein, zurück 

Zeichen auf Stack sichern 
sCR/LF ausgeben 

;Zeichen wieder laden 
¡fertig! 


EFIE IEEE dE dE AEE AEE AEE EE EEEE EEEE Ee ee eee 


Pixel-Tabelle für inverse leichenausgabe auf 
dem Drucker. Pro Zeichen 5 Byte 

DEFB BCIH,BREN, BA2H, BAEH,BBIH ‚a 
DEFB 83H, BEDH, BEEH, BEDH, B3H A 
DEFE  BØH, OB6H, BB6H, BBH, BCIH 3B 
DEFB  OC1H, OBEH, OBEH, OBEH, ODDH iC 
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JBAB 
JBAD 
3BBZ 
3887 
3BRC 
JBCi 
IBEA 
JRCB 
J2D8 
3805 
JBDA 
JBDF 
JBE4 
3BEI 
JBEE 
J3BF3 
JBF8 
JBFD 
30082 
3087 
acae 
stil 
3c1h 
ICi 
3C20 
3¢25 
3C2A 
IC2F 
3034 
3639 
3C3E 
3643 
3648 
JC4D 
3632 
3657 
365t 
Jchl 
JCh6 
JCAB 
3C78 
3675 
3C7A 
3C7F 


80 BE BE BE Ci 
B0 Bó Bó Bó BE 
B0 Få Fé F6 FE 
Ci BE BE AE 8C 
88 F7 F7 F7 90 
FF BE 88 BE FF 
DF BF BF CO FE 
8@ F7 EB DD BE 
B0 BF BF BF BF 
80 FD F3 FD 88 
80 FD FB F7 80 
C1 BE BE BE Ci 
B0 Fó Fé Fó F9 
Ci BE AE DE Al 
BO Fó Eb D6 B9 
D? Bó Bé B6 CD 
FE FE 88 FE FE 
Ca BF BF BF CB 
FB E7 9F E7 F8 
BO DF E7 DF 80 
9C ED F7 EB 9C 
FC FB 87 FB FC 
9E AE Bé BA BC 
FF 80 BE BE FF 
FD FB F7 EF DF 
FF BE BE 88 FF 
FB FD 88 FD FB 
F7 E3 Dó F7 F7 
FF FF FF FF FF 
FF FF AB FF FF 
FF F8 FF F8 FF 
EB 88 EB 88 ED 
DB D6 80 D& ED 
DI ES FT CB CD 
C9 D6 A9 DFAF 
F7 FB FC FF FF 
FF E3 DD BE FF 
FF BE DD E3 FF 
D E3 88 E3 D5 
F7 F7 Ci F7 F7 
DF C7 F7 FF FF 
F7 F7 F7 F7 F7 
FF 9F 9F FF FF 
DE EF F7 FB FD 


DEFB 
DEFR 
DEFR 
DEFB 
DEFR 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFR 
DEFB 
DEFB 
DEFB 
DEFB 


DEFR 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


BOH, BEH, OBEH, ØBEH, BC1H 
SOH, ARGH, BRAH, BBóH, OBEH 
BOH, OF óH, OF6H, BFóH, OFEH 
BCIH, BEH, OBEH, BAEH, BCH 
BBH, ØF 7H, ØF 7H, BF 7H, 80H 
OFFH, OBEH, BØH, ABEH, BFFH 
BDFH, BBFH, BBFH, BCOH, BFEH 
BOH, OF 7H, BEBH, BDDH, BBEH 
BAH, BBFH, BBFH, BBFH, BBFH 
BOH, BF DH, BF 3H, BF DH, 80H 
SBH, BFDH, OF BH, OF 7H, SOH 
BC1H, OBEH, ØBEH, OBEH, OC1H 
SAH, BF óH, BFH, AFGH, OF9H 
OC1H, OBEH, AEH, ADEH, DALH 
BOH, BFóH, BE6H, OD6H, BBSH 
BDIH, OBAH, OBEH, BRGH, BCDH 
BFEH, BFEH, BOH, BFEH, BFEH 
BCRH, OBFH, ABFH, ABFH, OCOH 
BFBH, BETH, 9FH, BETH, BFEH 
BBH, BDFH, BETH, BDFH, BOH 
ICH, BEDH, BFTH,BEBH, ICH 
BFCH,OFBH, 87H, AFBH,BFCH 
JEH, BAEH, BB&H, BBAH, BBCH 
BFFH, 88H, BBEH, BBEH, BFFH 
QFDH, @FBH, BFTH, BEFH,BDFH 
BFFH, QBEH, BBEH, 88H, BFFH 
BFBH. OF DH, BOH, OF DH, OF BH 
OF7H, BEZH, ODSH, OF 7H, OF7H 
BFFH, BFFH, OFFH, OFFH,ÖFFH 
BFFH,ÖFFH, BABH, BFFH,OFFH 
BFFH, BFEH, BFFH, QFBH,OFFH 
BEBH, 88H, BEBH, BOH, BEDH 
BDBH, QD6H, B@H, BD6H, BEDH 
BD9H, BEIH, BFTH, BCRH,ACDH 
BC9H, BD6H, BA9H, BDFH, QAFH 
BFTH,BFEH, BFCH, BFFH,BFFH 
BFFH, BE3H, BDDH, BBEH,ÖFFH 
BFFH, BBEH, BDDH, BESH, AFFH 
BD6H, BEIH, BQH, BEIH, BDSH 
BFTH,BFTH,BCIH, BFTHLOFTH 
BDFH, BC7H, BFTH, BFFH,OFFH 
BFTHBFTH, BETH, BFTH,OFTH 
BFFH, BIFH, BIFH, ÖFFH,OFFH 
ODEH, QEFH, ØF 7H, BF BH, OF DH 
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384 
489 
JCHE 
3693 
398 
3c9D 
JCAZ 
3CA7 
ICAC 
Schi 
JCR6 
3CRB 
Icco 
3cc5 
3CCA 
3CCF 


3c 
3cDó 
3cD7 
J3cD8 
3cD9 
ICDA 
3CDD 
JCDE 
JCEB 
JtE2 
J3CE5 
3CE6 
3tE7 
JEB 
3CEB 


JCEC 
JCED 


C1 AE Bé BA CI 
FF BD 80 BF FF 
9D AE Bó BA BD 
DD BB BB BR C9 
E7 EB ED 80 EF 
DE BA DA DA C 
Ci Bé Bó Bé CF 
FC FE 86 FA FC 
C? Bó Bé Bó C? 
F? Bó B6 Bó Ci 
FF C9 C9 FF FF 
BF Ch E4 FF FF 
F7 EB DO DE DE 
EB EB EB EB EB 
DE DE DD ERB F7 
FD FE Ab FA FD 


CR 3B 

ic 

TE 

23 

B? 

F2 D7 3¢ 
1D 

20 F7 
E4 7F 

{D 2A 03 
TE 

23 

B7 

F2 E2 3C 
c9 


CE 
45 58 54 28 57 


DEFB  ØCIH,BAEH, OBAH, OBAH, OCIH gl 
DEFE  BFFH,BBDH, SAH, GBFH, AFFH si 
DEFE 9DH,BAEH, ØBGH, BRAH, GRDH iż 
DEFB BDDH,BRBH, BBBH, ABBH, BC9H jd 
DEFB  Q0E7H, QEBH, GEDH, SBH, GEFH 14 
DEFE  ADBH, ABAH, ODAH, ADAH, ØCSH E 
DEFE BCIH,GB&H, BB6H, BB6H,BCFH j6 
DEFB BFCH,BFEH,BOH,BFAH,AFCH i7 
DEFE BC9H,BB6H, ØROH, BBGH, ACOH ‚8 


DEFB BFIH,OBSH, BRAH, DREH, BCIH 1? 
DEFB  BFFH,OCHH, BCHH, BFFH,BFFH j: 
DEFB  BRFH,OCAH, BESH,AFFH,BFFH ji 
DEFE BF7H,BEBH, ADDH, @DEH, DEN i 
DEFE BEBH,BEBH,BEBH, BEBH, BEBH i 

DEFB  @DEH, BDEH, ODDH, QEBH, BF7H j 
DEFE  BFDH,BFEH, AAGH, OFAH, BF DH i 


RR 


Fehlermeldung ausgeben 
Eing.: E = Fehlernummer 
HL = Adresse der Fehler-Tabelle 


SRL E ;Fehlernummer / 2 

INC E. iti 

LD A (HL) iByte aus Fehler-Tabelle laden 
Int HL ;Tabellenadresse + I 

OR À ineue Meldung ? 

JP Ps 3CD7H nein! 

DEC E iFehlernummer - i= 0? 

JR NZ, 3CD7H ‚nein, nicht die richtige Meldung 
AND 7FH Bit 7 löschen 

CALL  B32AH ;Byte ausgeben 

LD As (HL?) snachstes Byte aus Fehlertab. laden 
ING HL ıTabellenadresse + Í 

OR À ‚neue Meldung ? 

JP P, 3CE2H inein, Byte ausgeben 

RET jja; fertig 


TRAINER E 


Tabelle der Fehlermeldungen 


DEFB ’N’+BOH NEXT WITHOUT FOR 
DEFM. “EXT WITHOUT FOR’ 
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IFE 
JCCFD 
3002 
3D83 
3005 
300A 


3D15 
3D16 
3028 
3D21 
3D2D 
3D2E 
3035 
3D36 
3042 
3D47 


3D48 


3053 
3054 


3068 
3D61 
3D65 
3D66 


304D 
JDE 


3D7D 


49 54 48 4F 55 
54 20 4b 4F 52 
D3 

59 4E 54 41 58 
D2 

45 54 

27 

4E 20 57 49 54 
48 4F 55 54 28 
AT AR 53 55 42 
CF 

55 54 20 4F 46 
Z0 44 41 54 4i 
Cé 

55 4E 43 54 49 
4F 4E 20 43 4F 
44 45 

CF 

56 45 52 46 4C 
4F 57 

CF 

55 54 20 4F 4b 
20 4D 45 AD 4F 
52 59 

D5 

4E 44 45 46 
27 

44 28 53 54 4 
54 45 4D 45 4E 
54 

c2 

41 44 28 53 55 
42 53 43 52 49 
50 54 

D2 

45 44 49 AD 
27 

44 28 4 52 52 
459 

C4 

49 56 49 53 49 
4F 4E 20 42 59 
20 5A 45 52 4F 
9 


DEFR 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


DEFB 
DEFM 


DEFB 
DEFM 


DEFB 
DEFM 


DEFB 
DEFM 


DEFB 
DEFM 
DEFB 
DEFM 


DEFB 
DEFM 


DEFB 
DEFM 
DEFB 
DEFM 


DEFB 
DEFM 


DEFB 


’5’+BBH 19YNTAX 

"YNTAX’ 

’R’+BBH sRETURN WITHOUT GOSUB 
’ET’ 

ZH 


"N WITHOUT GOSUR’ 


0° +BBH SOUT OF DATA 
"UT OF DATA’ 

F? +BOH ;FUNCTION CODE 
"UNCTION CODE’ 

0’ +B8H sOVERFLÜW 
’VERFLOW’ 

’0° +B@H »0UT OF MEMORY 
UT OF MEMORY’ 

U’ +BOH SUNDEF INED STATEMENT 
’nDEF’ 

27H 

’D STATEMENT’ 

’B’+80H {BAD SUBSCRIPT 


"AD SUBSCRIPT’ 


’R’+BOH ;REDIMENSIONED ARRAY 
EDIM? 

27H 

’D ARRAY’ 

’D’+80H DIVISION BY ZERO 


’IVISION BY ZERO?’ 


’P’+B@H ILLEGAL DIRECT 
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3D7E 


3DBB 
J3DBt 


3098 
3099 


3DA4 
3DA5 


3DB3 
3DB4 


3DE7 


JDF2 
JDF3 


JEBI 
JE02 


JERE 


AC AC 45 47 41 
4C 20 44 49 52 
45 43 54 

Då 

39 30 45 20 4D 
49 53 4D 41 54 
43 48 

CF 

55 34 20 4F 4b 
20 53 50 41 43 
45 

D3 

54 52 49 4E 47 
20 54 4F 4F 20 
4C AF 4E 47 

Ch 

AF 52 4D 554C 
4i 20 54 4F 4F 
20 43 4F 4D 58 
46 45 58 

(3 

4 4E 

27 

54 20 43 AF 4E 
54 

CE 

AF 20 52 45 53 
55 4D 45 

D2 

45 53 55 4D 45 
28 57 49 54 48 
4F 55 54 

D5 

4E 50 52 49 4E 
I4 Ai 42 4C 45 
cD 

49 53 53 49 4E 
47 20 AF 50 45 
32 41 4E 44 

02 

4) Ah 28 46 49 
4C 45 20 44 41 
54 4 

c4 


DEFM 


DEFB 
DEFM 


DEFR 
DEFM 


DEFB 
DEFM 


DEFB 


DEFB 
DEFM 
DEFB 


DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


DEFB 
DEFM 


DEFB 


'LLEGAL DIRECT? 


P +80H 
YPE MISMATCH’ 


STYPE MISMATCH 


’0’+BBH söUT OF SPACE 
"UT OF SPACE? 
’5’+88H STRING TOO LONG 


’TRING TOO LONG’ 


’F’+BOH sFORMULA TOO COMPLEX 
"ORMULA TOO COMPLEX’ 


’C’+88H sCAN’T CONTINUE 
’AN? 

27H 

’T CONT’ 

’N’+B@H NO RESUME 

0 RESUME’ 

’R’+BOH RESUME WITHOUT ERROR 
’ESUME WITHOUT’ 

"U? +BOH ıUNPRINTABLE ERROR 
"NPRINTABLE’ 

’M’ +BOH {MISSING OPERAND 


” ISSING OPERAND’ 


’B’ +BOH BAD FILE DATA 
"AD FILE DATA’ 
’D’+BBH DISK COMMAND 
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JEBF 


3EIA 


JE29 
3EZA 
JE2B 
JE2D 
JE2F 
JE3Jð 
JE31 
3E32 
3E33 
3E34 
3E35 
JE3b 


3E37 
JEJA 
JE3C 
JESF 


JE48 
JE41 
JE43 
JE45 
JE47 


49 53 4B 20 43 
AF 4D 4D 4i 4E 
44 

JF 53 59 4E 54 
41 58 20 45 52 
52 4F 52 

aD g 


7E 
B7 
28 07 
JE 20 
77 
23 


7 
2B 
ZB 
Fi 


32 7D 78 
JE 10 
32 46 78 
(9 


TE 

CB 77 
28 85 
FE 88 
DA 5D 3E 


DEFM  ?’ISK COMMAND’ 


DEFM  ’?SYNTAX ERROR’ 


DEFB BDH,BBH 


RAR ER 


wenn Puffer leer, ein Leerzeichen in Puffer schreiben 


LD A, (HL) Zeichen aus Puffer laden 

OR À 8? 

JR NZ, JE34H nein, nicht leer! 

LD A’? ıLeerzeichen laden 

LD (HL), A ‚und an Pufferanfang 

INC HL ‚Endekennung hinter Leerzeichen 
XOR À =’) 

LD (HL) A 

DEC HL ;Pufferzeiger wieder auf Anfang 
DEC HL Pufferzeiger auf Byte vor Puffer 
POP AF ‚Kenner wieder laden 

RET fertig! 


RRRRTRRRRRHRHHHHHHHHHHNE 


Teil der Initialisierung 
Default-Farbe = gelb setzen 


LD (78704) ,A ‚Interrupt-RAM-Ausgang = Return 
LD As 10H Farbe gelb in Farbkenner 

LD (78464), A 

RET 


FEIRE EEEIEE EAE EAE AEEA AEE AEAEE AEE E AEAEE AE EE EEEE 


Zusatzroutine zum Einlesen einer Zeile (RDLINE) 
bei grünes Hintergrund und schwarzer Zeichendarstellung 


übertragen der Daten vom Bild zum 1/0-Buffer 


LD As (HL) Zeichen vom Bild laden 
BIT 5A ‚Inverse-Zeichen ? 

JR 2, 3E4AH jja! 

CP BBH ‚orafik-Zeichen ? 

JP C, JE5DH mein! 
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JE4A 


JE4R 
JE4E 
3E4F 
3E50 


JE33 
3E54 
3E57 
JE5A 


JE5D 
JESF 
JE61 
3E63 
3E64 
JE65 
JE66 
3E67 


JE6A 
JE6B 
JEAD 
JE6F 
JErl 
3E73 
3E75 
3E77 
3E79 
JE7B 
3E7D 


JE7F 
JE81 
JE83 
3EB4 
JEB7 
3E89 
JEBA 


JEBC 


11 53 3E 
D5 
c5 
c3 82 05 


D8 

21 1A 3E 
CD A7 26 
C3 E3 83 


FE 62 

20 39 
Eb BF 

12 

23 

13 

85 

CA EE B4 


TE 

CR 7F 
20 86 
CB 77 
20 ac 
18 86 
E6 BF 
F6 80 
18 17 
F6 co 
18 13 


FE 62 

28 89 

E5 

21 39? 78 
CB 66 

Ei 

28 BE 


CB oF 


POP 


LD 
PUSH 
PUSH 
JP 


RET 
LD 
CALL 
dP 


cP 
JR 
AND 
LD 
INC 
INC 
DEC 
JP 


BC 


DE, JES3H 
DE 

BC 
2582H 


£ 

HL, 3E1AH 
28A7H 
B3ESH 


"’+AQH 
NZ, 3E9AH 
BRFH 
(DE) A 
HL 

DE 

B 

Z, B4EEH 


‚wenn nicht INPUT, dann sind 
‚arafik und Inverse nur in 
‚Strings zugelassen 
;Rucksprungadresse in Stack 


;Textendekennung prüfen {BREAK?) 


sBREAK! zurück zum BASIC 

Text "SYNTAX ERROR” adressieren 
‚und ausgeben 

zurück zur Zeileneingabe 
Stringkennzeichnung ’"’ 7 
jnein, weiter 

;Bıt 6 löschen 

Zeichen in 1/0-Buffer 
;Bildadresse + I 
sBufferadresse + 1 
;Zeichenzähler - i 

‚wenn 8, übernahme beenden 


Einsprung von 3EAF bei grünem Hintergrund 


LD 
BIT 
JR 
BIT 
JR 
JR 
AND 
OR 
JR 
OR 
JR 


CP 
JR 
PUSH 
LD 
BIT 
POP 
JR 


BIT 


Às (HL) 
7,A 

NZ, 3E75H 
bÀ 

NZ, 3E7FH 
3E7BH 
BFH 

BOH 
J3E72H 
COH 
JE92H 


tH ? 44H 
NZ, 3E8CH 
HL 

HL, 7839H 
4 (HL) 
HL 

7, 3E9AH 


JA 
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Zeichen aus Bild laden 
;srafik-Zeichen ? 

Ja! 

sinvertiertes Zeichen 
mein: 

ija! 

‚arafik, Bits 4,5,6 löschen 
;Bit 7 setzen 


Bits 5 und 7 setzen 


sist es ein ’"’ ? 

ynein! 

;HL retten 

iFlag 2 adressieren 
;INPUT-Kommando 7 

;HL wieder laden 

jnein - ab jetzt Grafik und 
sInverse nicht erlaubt 
Zeichen in echten ASCII-Code 


JESE 
3ER 
3692 
JE93 
3E94 
3E95 
JE97 


JEIA 
JE9C 
JE9E 
JEAB 
JEAI 
JEAZ 
JEA3 
JEA5 


JEAB 
JEAB 
JEAC 


JEB? 
JER5 
JEB& 


JEBA 
JEBB 
JEBD 


JEBE 
JECI 
JEC2 
JECA 
3ECh 
JECS 
JEC? 


28 02 
Eb BF 

12 

23 

13 

18 D3 
C3 EE 84 


CB aF 
28 82 
E6 BF 

12 

23 

13 

10 98 

C3 EE 04 


JA 18 78 
B7 

(2 B8 04 
C3 bA 3E 


JA 18 78 
B7 

20 83 

CB B6 

c9? 

CB Fó 

(9 


JA 18 78 
B7 

JE 28 
20 82 
Fi 48 
77 

c9 


JR 2, 3E92H ‚umwandeln, wenn falsch 

AND BBFH {Bit & ggf. löschen) 

LD {DE),A Zeichen in 1/0-Buffer 

INC HL \Bildadresse + 1 

INC DE Bufferadresse + 1 

DINZ  3E6AH Zähler - i 

JP B4EEH ‚= 8, dann fertig 

BIT 5,Å Zeichen in echten ASCII-Code 
JR 2, 3EABH ‚umwandeln, wenn falsch 

AND BFH stBit & ggf. löschen) 

LD (DE), A Zeichen in 1/0-Buffer 

INC HL Bildadresse + 1 

INC DE Bufferadresse + 1 

DJNZ  3E4BH Zähler - 1 

JP D4EEH $= 8, Übertragung beendet 

LD A, (7BI8H) abhängig vom Hintergrund in 

OR À ‚entsprechende Routine verzw. 
JP NZ, BABBH schwarzer Hintergrund 

JP JEGAH ıgruner Hintergrund 


FAERIE AE HE AE AEA HEE AEE FE FE AEE HEE AEE BEEE AE AE AEAEE EEEE EEE 


Zeichen invertieren 


LD A, (78184) ;Hintergrund-Flag laden 
OR A ;schwarzer Hintergrund ? 
JR NZ, JEBBH jja! 

RES 6: (HL) ‚grun, Bit & löschen 

RET 

SET ós (HL) schwarz, Bit ó setzen 
RET . 


FREIE IE IE IE JEE AE EAEE IE FE AEAEE EE EEE AE AEAEE AE E EEEE 


Löschzeichen für Bildlöschroutine bereitstellen 


LD À, (7818H) ;Hintergrund-Flag laden 
OR À ‚schwarzer Hintergrund ? 
LD A’? Leerzeichen laden 

JR NZ, 3ECBH ‚schwarz, ist so ok! 

OR 40H ıgrun, zus. Bit 6 setzen 
LD (HL); À iLeerzeichen in Bild 

RET 
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JECA 
JECB 
JECE 
JECF 
3EDI 


JED4 
3ED5 


JED8 
3ED9 
JEDE 
JEDE 
JEDF 
JEEI 
3EE2 
JEE4 
JEE6 


3EE9 
JEEC 
3EED 
3EEE 
3EF@ 
3EF2 
3EF3 
3EF5 


JEF6 
JEF9 
JEFA 
JEFC 
JEFE 
JFBB 


F5 

JA 18 78 
B7 

28 07 

Fi 

Eb SF 

E5 

C3 AB 3I 


Fi 
F& 48 

E5 

21 38 78 
CB 4E 

Ei 

28 82 
Eb BF 

c3 35 31 


3A 18 78 
B7 

7E 

20 83 
FE 68 


FE 20 
c9 


3A 18 78 
B7 

JE 28 
20 02 
Fé 40 

12 


RR 


bei Bildschirmausgabe Invertierung abhängig vom 
Hintergrund ausführen 


PUSH 
LD 
OR 
JR 
POP 
AND 
PUSH 
JP 


POP 
OR 
PUSH 
LD 
BIT 
POP 
JR 
AND 
JP 


AF 


À, (7818H) 


À 

2, 3EDSH 
AF 

3FH 

HL 
31ABH 


AF 
40H 
HL 


HL, 7838H 


1a (HL) 
HL 

2, 3EE6H 
QBFH 
31B5H 


‚auszugebendes Zeichen sichern 
;Hintergrund-Flag laden 
‚schwarzer Hintergrund ? 

jnein - grun! 

Zeichen wieder laden 

Bits 6 und 7 löschen 
;Hauptroutine invertiert, 
falls erforderlich. 


Zeichen wieder laden 
‚Bit ó setzen 

SHL sichern 

‚Flag 1 adressieren 
jinvertieren? 

;HL wiederherstellen 
‚nein! 

Bit é löschen 
sfertig 


EEIEIEE FEAE EAEE E HE HEIE EEE AEA EE AE dE AE AE EEEE HEHE t 


Zeichen auf Leerzeichen (Blank) testen 
À, (7818H) 


LD 
OR 
LD 
JR 
cP 
RET 
cP 
RET 


A 
A, (HL) 


NZ JEF3H 


' ABH 


3 $ 


sHintergrund-F lag laden 
‚schwarzer Hintergrund ? 
Zeichen laden 

1Ja, Schwarz! 

smit Bit é = 1 prüfen 


mit Bit = 0 prüfen 


HEREJE HE AEE E AAE FE IE AEAEE E EEIE EE AE AEAEE EE EE EEEE 


bei INSERT und RUBOUT Leerzeichen einfügen 
A, (78184) 


LD 
OR 
LD 
JR 
OR 
LD 


A 
Ay’ ? 


NZ, JFØBH 


40H 
(DE) A 
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sHintergrund-Flag laden 
‚schwarz ? 

Leerzeichen laden 

jja! 

‚bei grun Bit 6 setzen 
sin Bildspeicher 


JrBi 


JFBZ 
JFB4 
3FB7 
JFBB 
3FBA 
JFOB 
3FBD 


JFE 
Sril 
3F14 
3F15 
J3F16 
3Fi7 
318 
3F19 
3r1A 
Jrit 
3F1D 
3F1E 
JF1F 


3F21 
IF 24 
3F25 
3F26 
3F28 
JF2A 
JF2B 
3F2C 
JF 2E 


c9 


06 20 

JA 18 78 
B7 

JE 28 

ch 

F& 48 

c9? 


11 EB 7 
JA 1B 78 
B7 

CB 

Fi 

7E 

B7 

c8 

CB B7 

12 

13 

23 

18 Fé 


JA 18 78 
B7 

E 
28 87 

GB F7 

12 

13 

JE 7A 

c9 


RET 


FAE HERE IEE JEE JEH HEIE FE I EFE E FE AE IEE MEAE FE HE AE EAE EAE EEEE E 


für Roll-Routinen Zeilenlöschung vorbereiten 


LD 
LD 
OR 
LD 
RET 
OR 
RET 


B,32 

Às (7818H) 
À 

Ay’ 3 

NZ 

40H 


Länge einer Zeile laden 
;Hintergrund-Flag laden 
schwarz ? 

Leerzeichen laden 

1Ja, fertig 

;bei grün Bit b setzen 


RR EEEE 


Hilfsroutine für das Laden von Kassette 
zur korrekten Darstellung der Meldungen, 
abhängig vom Hintergrund. 


Aufruf von 3889H (allg. Meldungen in letzte Zeile) 


LD 
iD 
OR 
RET 
POP 
LD 
OR 
RET 
RES 
LD 
INC 
INC 
JR 


DE, 71E0H 
Às (781BH) 
À 

NZ 

AF 

Ás (HL) 

A 

Z 

bÂ 
(DE), A 
DE 

HL 

3F17H 


‚letzte Zeile adressieren 
;Hintergrund-Flag laden 
‚schwarz ? 

ija, keine Aktion 

Stack bereinigen 
;Textzeichen laden 
;Textende ? 

Ja, fertig 

sBit & löschen 

ıZeichen invertiert ausgeben 
sBildadresse + 1 
‚Textadresse + I 
ınachstes Byte 


Aufruf von 382BH (Ausgabe des Dateikenners) 


LD 
OR 
LD 
JR 
SET 
LD 
INC 
LD 
RET 


Às (7818H) 
A 

À; (HL) 
NZ, 3F2FH 
bå 
(DE); À 
DE 
Âr? EP +HAOH 
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jHintergrund-Flag laden 
‚schwarz ? 

;Kenner laden 

jja! 

grun, Bit & setzen 

sins Bild übertragen 
sBildadresse + i 
;Trennzeichen f. grun laden 


Far 
3F 30 
3F32 


3F33 
3F34 
3F37 
JF 38 
JF3A 
IF 3B 
3F3D 
3F3E 
IF3F 
3F40 
3F42 
3F43 


IF 44 
3F45 
3F48 
3F49 
JFAB 
Srat 
JFAE 
3F51 


3F54 
- 3F55 
357 
3F5A 
JF5D 


Fob 
Fál 


12 
3E 3A 
c9 


F5 

JA 15 78 
E 

20 05 
Fi 

FA 40 
12 

c9 

Fi 

ES 3F 
12 

c9 


F5 

JA 18 78 
B7 

20 87 

Fl 

CB 77 

(2 38 39 
C3 31 39 


Fi 

CB 77 

CA 38 39 
c3 31 39 
c3 31 39 


F5 
JA 18 78 


LD 
LD 
RET 


(DE), ÀA 
Ar’ 


Kenner ins Bild (f. schwarz} 
iIrennzeichen laden 


Aufruf von 3837H (Ausgabe des Datei-/Programm-Namen) 


PUSH 
LD 
OR 
JR 
POP 
OR 
LD 
RET 
POP 
AND 
LD 
RET 


AF 


Ås (7B18H) 
A 

NZ, 3FIFH 
AF 

4BH 
(DE), A 


AF 
3FH 
{DE),A 


Zeichen sichern 

;Hintergrund-Flag laden 

‚schwarz 7 

iJa! 

;grun! Zeichen wieder laden 

‚Bit & setzen {f. schwarze Darst.) 
sleichen auf Bild ausgeben 


schwarz’! Zeichen wieder laden 
Bits 5 und 7 löschen 
Zeichen auf Bild ausgeben 


RAR E AEE dE AEAEE IEEE HEE E E E E E 


Hilfsroutine zur COPY-Anweisung 


aufgerufen von 392DH 


PUSH 
LD 
OR 
JR 
POP 
BIT 
JP 
JP 


POP 
BIT 
JP 
JP 
JP 


AF 

As (7818H) 
A 

NZ, 3F54H 
AF 

bÂ 

NZ, 3938H 
3931H 


AF 

bå 

Z, 3938H 
3931H 
3931H 


sZeichen sichern 
;Hintergrund-Flag laden 
;schwarz ? 

jja! 

arun! Zeichen wieder laden 
sinvertiertes Zeichen ? 
jnein, normale Ausgabe 

jJa, invertierte Ausgabe 


;schwarz! Zeichen wieder laden 
sinvertiertes Zeichen ? 

jnein, normale Ausgabe 

iJa, invertierte Ausgabe 
inicht benutzt! 


RAR 


Hilfsroutine zur Zeichenausgabe auf dem Bildschirm 
Anpassung der Invertierung an die Hintergrundfarbe 
Aufruf von 3149H 


PUSH 
iD 


AF 
A, (78184) 
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sZeichen sichern 
}Hintergrund-Flag laden 


JF64 
3F65 
3F67 
3F68 
JF6A 
3FáD 
JFbE 
3F78 


3F73 
3F76 
3F77 
3F78 


3F7B 
JF7E 
JF7F 
3F82 
JF83 
3F86 
3F89 
JF8C 
JFBF 
3F98 
JF? 
3F94 
3F9b 
397 
3F98 
399 
SF9A 
3F9B 
3F9D 


B7 

20 86 
Fi 

Eó Sf 
03 54 31 
Fi 

Eb 7F 
C3 54 Ji 


cD 75 37 
Da 
El 
c3 11 37 


JA 19 78 
47 

JA 18 78 
Be 

CA EB 30 
32 19 78 
21 08 78 
Bi 0 82 
7E 

B7 

FA 97 3F 
EE 48 

77 

23 

8B 

78 

Bi 

28 F2 
C3 E8 38 


OR Å ‚schwarz ? 

JR NZ, 3F&DH ija! 

PoP AF ıgrun! Zeichen wieder laden 
AND 3FH ‚Bits 5 und 7 löschen 

JF 3154H 

POP AF ‚schwarz! Zeichen wieder laden 
AND 7FH ‚Bit 7 löschen 

JP 3154H 


FERESE IEE AEE IEE AEAEE AEAEE AE AE IEE EE FE FE FERE HE AEAEE E EEEE E 


Hilfsroutine zum Einlesen von Kassette 
Aufruf von 369CH 


CALL 3775H \Byte von Kassette lesen 
RET NC sok! 

POP HL ;Rucksprungadresse vom Stack 
JP 3711H jLesefehler! 


RRRRRRRRHRHHREHHHHHRHHHENE 


Bei Wahl einer neuen Hintergrundfarbe 
Bildschirm-Inhalt umwandeln 
Aufruf erfolgt von der Interrupt-Service-Routine 


LD A, (78194) jakt. Hintergrund-Flag 

LD BA 

LD A, (78184) ı= gewähltem Hintergrund ? 
CP B 

JP Z, 30E8H ija, zur Zeichenausgabe 

LD (7819H), A sakt. Hintergrund-Flag aktualis. 
LD HL, 7BRBH ‚Bildanfangsadresse laden 

LD BC,512 Bildschirmgröße 

LD Ar (HL) Zeichen laden 

OR À ‚Blockgrafik ? 

JP M, 3F97H ija; unverändert lassen 

XOR 40H ‚Bit ó (Invertierung) kippen 
LD (HL), A und zuruckschreiben 

INC HL Bildadresse + 1 

DEC BC ‚Zeichenzähler - 1 

LD AB 87 

OR c 

JR NZ, 3FBFH nein, nächstes Zeichen 

JP JESH 1Ja, fertig! 


FEIE IEE EEIEIE EIEE AHE FE EAE EIEEE AE EEEE AE E EEEE E 
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JFAB 
JFA3 
3FAS 
3FA7 
3FA9 
JFAB 
JFAE 
3FBi 
IFRA 


JA FD 68 
CB 57 
JE 28 
20 88 
Fé 40 
32 18 78 
32 19 78 
32 36 78 
0309 9 


Prufen, ob während der Initialisierung 
die CTRL-Taste betätigt ist 


LD 
BIT 
LD 
JR 
OR 
LD 
LD 
LD 
JP 


Ás (6BFDH} 
ZA 

Ar’ E 

NZ, 3FBIH 
4BH 
(78184), A 
(7819H), A 
(783CH) ,A 
BIC9H 


‚Tastaturzeile ł iaden 

SETRL-Taste betätigt ? 

Leerzeichen in å 

‚nicht betätigt! 

‚Bit & setzen (schwarzer Hintergr.) 
;Hintergrund-Flags für schwarz 
‚setzen 

jLeerzeichen als (ursor-Sicherung 
‚Fortsetzung der Initialisierung 


Verzeichnis der RAM-Variablen , -Vektoren und -Zeiger, die vom 
BASIC - Interpreter angesprochen werden. imit üuerverweisen zum ROM) 


TE EEE 


Der Bereich 7500H bis 7835H wird bei der System-Initialisierung 
aus dem ROM-Sereich vorbelegt. 


7888 
7883 
7886 
7889 
788C 
7808F 
7812 


7813 


7815 
7816 
7818 


7819 
781A 
7818 


781D 


781E 


7820 


c3 96 1C 
C3 78 1D 
c3 ic 
c3 D? 25 
c? 88 Bg 
(9 28 08 
FR 


C? 28 


2 
F4 ZE 
20 


28 
Bo 
4B 49 


8B 76 


;RST 8 - Vektor 
s2000, 08679 

ıRST 18 - Vektor 
‚2018 

;RST 18 - Vektor 
10018 

ıRST 28 - Vektor 
2828 

ıRST 28 - Vektor 
10828 

SRST 30 - Vektor 
10030 

SRST 38 - Vektor 
‚twird nicht angesprochen) 


Tastatur Device-Control-Rlock (DCB) 





Jf 1C96H 
JP 1078H 
JF 1C9AH 
JP 25D9H 
RET 

RET 

EI 

RET 

DCB-Kenner 
Treiber-Adresse 
Hintergrund-Flag 


{8=grun, I=schwarz) 


akt. Hintergrund 


’KT’ 


0028 


B4BE JEAB JEB? JEBE 3ECB 3EE9 3EF& 
ısrß4 3F11 3F21 3F34 3F45 Sal IFTF 
ı3FAB 

ı3F7B 3F8b 3FAE 


Bildschirm Device-Control-Block (DCB) 





(im LASER 118-318 unbenutzt) 


DCB-Kenner (gelöscht) 


0033 


Zeiger auf Programm-Anfangsadresse 


bei CLOAD 


Cursor-Adresse 
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1368D 36CB. 


B050 0311 034D O3ES B419 BAIE 042A 
10468 0505 B55B 2883 ZEEC 3033 3111 
‚3129 31F5 3202 3207 3238 3247 325C 
326b 3276 3288 328A 3295 3284 3202 
$3207 3308 3326 33A3 3300 35Ch 3657 


7822 
7823 


7825 
7826 
7828 
7829 
7824 
7828 


782D 
7838 


7833 


7835 


7836 


7837 


7838 


7839 


28 
20 88 


86 
8D 85 
43 
88 
29 
30 52 


C3 08 58 
(7 08 28 


JE 28 
{9 


3723 


Prufsumme bei Kassetten Ein-/Ausgabe 


s34BE 3670 
Drucker Device-Control-Biock {DCB} 
DERB-Kenner 10038 
Treiber-Adresse 
Zeilen/Seite+i 
Zeilenzähler 
PR? 
JP SBBBH unbenutzt 
RST 8 sunbenutzt 
LD Ar bei unbekannter DCB-Kennung A0 
RET a3D1 
Puffer Bi für 1. Tastencode bei gleichzeitig mehrfacher 
Tastenbetätigung 10603 B6BB 0635 865D BbB 2F24 2FFR 
Puffer B2 für 2. Tastencode bei gleichzeitig mehrfacher 
Tastenbetätigung ıBSFF B62E BA3B B664 BAAB ZFFF 
FLAG í 10517 051C 05D7 059F4 0625 B656 2F0E 


Bit 7 - CONTROL-Flag 1s2F28 2FB3 2F9B 2FA9 2FCD 2FD7 2FFB 
Bit & - REPEAT-Flag 3839 31AB 3EDE 

Bit 5 - WAIT-Flag 

Bit 4 - B2-Status-Flag 

Bit 3 - Bi-Status-Flag 

Bit 2 - FUNCTION-Flag 

Bit 1 - INVERSE-Flag 

Bit @ - SHIFT-Flag 


FLAG 2 ‚8183 B3EI 0405 8425 BACE BSIF 852C 
Bit 7 - unbenutzt 2567 2EC9 2EDE 3828 38AB 3102 3212 
Bit & - CRUN-Flag 13253 3260 3430 3694 3609 J6E3 3727F 
Bit 5 - Ini-Flag f. gepufferte Ausgabe 13739 3758 3AFE 

Bit 4 - Flag f. INPUT-Anweisung 13803 3EB4 

Bit 3 - VERIFY-Flag 

Bit 2 - BREAK-Flag 

Bit i - BUZZER-Flag 
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783A 


7838 


783C 


7830-7840 


7841 


7842-7843 


7844-7845 


7846 


7847-7848 


784C 


784D-787C 


787D C9 08 08 


Bit 8 - Carriage-Return Flag 


Zeitzähler 


INPUT/OUTPUT-Latch 


‚BSDF BSES ZFI5 2FC1 2FDE 2FE2 ZFF4 
SJ00A JOBE 3012 3491 


2641 2E73 2878 ZE7F 2EB4 308C 3895 
13456 3489 352B 3542 3586 35BF 38CA 
ı3BCF 3BDB 3BEB 3914 


Zeichensicherung für Cursor-Darstellung 


unbenutzt 


Blink-Zähler 


‚2054 BSBE 32F5 3FBi 


‚0348 


2EE2 ZEEI 3038 3496 


Zwischenspeicher bei Tastaturabfrage 


tZeile/Spalte) 


10611 B543 2F6F 


Zwischenspeicher bei Tastaturabtrage 


{Matrix-Adresse) 


Farb-Code 


unbenutzt 


8615 8647 2F73 


‚8173 3150 3889 3E3C 


Ausgabe-Flag f. Meldungsausgabe bei Kassetten 1/0 
(>8 - Meldungen werden unterdrückt) 


unbenutzt 


135B1 3719 37F4 3884 3814 


RAM-Erweiterungsausgang der Interrupt-Service-Routine 
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2EBC 3637 








7888 


7882 
7883 
7884 
7886 
7887 
7888 
7884A 
7888 
788D 


788E 


7898 


7893 


7895 


7896 


7899 


789A 


7898 


789C 


789D 


789E 


789F 


DS 80 


6F 
7 
DE B0 
67 
78 
DE 88 
47 
JE 28 
(9 


áA 1E 


40 E6 4D 


DB 28 
c? 


D3 08 


Der Bereich 7888 - 7845 wird bei der Initialisierung aus 
dem ROM-Bereich gefüllt 


Unterprogramm fur Division 

SUB d Subtraktion Z2 - Zi 
wird vor jedem Aufruf modifiziert. 
2075 BEBR BACA 


LD L;A 

LD AH 

SEC Ad 10886 

LD HA 

LD A,B 

SEC Að 18821 

LD BA 

LD AÖ SOBC4 QBD2 BBFB BOF4 
RET 


USR - Startadresse 
vorbesetzt mit FUNCTION-CODE Error 
12815 


Multiplikator f. RND ;14Fß 


Unterprogramm fur INP 
IN A (0) s2AFS 2AFZ 2Bi1 
RET 


Unterprogramm fur OUT 
GUT (EA sZAFE 2814 


INKEY$-Zwischenspeicher 
1019F BIAD iDAS 
letzter Fehlercode fur ERR 
5198B7 1A2B IFBE 1FBS 2408 
Druckerposition in der Zeile 
sB3sF BIBI 0387 70D5 2115 214E 
Geräte-Flag (B=Bildsch., i=Drucker, 8@=Kassette) 
1032F 038C 7069 2098 ZBCC 2144 2169 
‚2171 2B2B 3BRC 
Zeilenlänge auf dem Bildschirm (vorbesetzt mit 64) 
sz0DD 
letzte Tabulator-Position (vorbesetzt mit 48) 
‚2123 
unbenutzt 
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TBAB 47 7B 


7BA2 FE FF 


7BA4 EI 7A 


7846-7847 


7BA7-784A8 


7949 


T8AA 
78AB 
TBAC 
7BAD 
78AE 


7BAF 


7888 


7881-7882 


7883-7884 


Anfangsadresse des String-Bereichs 
sBaF6& 1917 1B9B 1EIC IF4C 27E5 2803 
ı28F8 

aktuelle Zeilennummer ;197E 1994 19A2 1A36 1CCi 1D41 1061 
siDF2 1EB9 1EC9 1EFO 1FD6 231C 2829 
12B36 I6FB 

Anfangsadresse des Programmtextes 
1191B8 IAFB 1B2C 1B4D 185D 1092 iF4s 
s3iDE 3462 3605 

Spaltenzeiger für Ausgabebild 
s8410 8415 8551 2889 20E1 2153 27F5 
ı3BCE 3114 311A 31BF 31F2 3227 3235 
13235 324F 328E 32A5 3287 3280 3200 
13302 3318 333A 3356 335F 3348 334E 
‚33D6 3410 3500 3728 3821 

Zeiger auf Ein-/Ausgabe-Puffer (ab 79E8) 
sOBBB IADB 1BCh 1CBA ZIAF 2163 2BbA 
32B7F 2ESC 

Eingabe-Flag (8 = Kassette) 
‚2186 21A3 22BE 


letzte Zufallszahl 51508 1526 
10105 
i1518 152F 


Flag für DIM-Anweisung 
ı2bBE 26EA 2787 272F 2757 


Typ des Wertes im X-Register 

02 = Integer ‚BIC4 89D3 BFEI 22FC 2374 2399 2418 
83 = String 2465 2509 2653 2716 27AF 27CR 288A 
84 = einfache Genauigkeit 32891 

88 = doppelte Genauigkeit 


Flag für Zwischencode-Erzeugung bei DATA 
Operationscode bei der Ausdrucksanalyse 
siBic iBDC {C67 2408 2451 


Endadresse des BASIC-Speicherbereichs 
1BOF2 BAIF 1B7A 1EB4 2BE& 


Zeiger auf String-Zwischenspeicher 
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78B5-78D2 


7803-78053 


7806-7807 


7808-7809 


78DA-78D8 


78DC 


78DD 


78DE 


78DF-78E0 


78E1 


TBEZ-7BE3 
T8E4-78E5 


TBE6-78E7 


+18B9E IDBA 2889 289B 28F8 29F5 29FF 


String-Zwischenspeicher {18 x 3 Bytes) 
{1 Byte - Länge, 2 Byte - Adresse im Stringbereich) 
siB9R 1087 28F4 


vori. String-Zwischenspeicher 
{wie oben) 1285A 2884 0185 2984 2427 2457 


Zeiger auf letztes freies Byte im Stringbereich 
s1B7D 27E9 2897 2807 2803 2BE9 2955 
4297F 29E8 


Allg. Adresszwischenspeicher 

Formatflag f. Stringausgabe einer Zahl 
sörDe ØFFB i834 1289 235E 2368 Z3CE 
52792 2784 2935 2940 


DATA - Zeilennummer 1991 ZZAA 


Flag zur Sperrung der Indizierung 
siBAA 1CAJ 2657 2665 


RESUME/RETURN - Flag ;1AAA IEFB IFEA 


Zwischenpuffer fur PRINT USING 
DATA-Flag fur INPUT 
ua. s217F Z1F5 2287 226F 2CCB 2005 2DD9 


allgemeiner Adress-Speicher 
Z.B, Programmfortfuhrung bei NEW 
Laufvariable bei FOR/NEXT 
Adr. d. Variablentabelle bei LET 
si1Böi IBAF iDi6 1F27 228C 2328 


AUTO-Eingabe - Flag (8 - kein AUTO) 
11458 1853 


AUTO - Zeilennummer siAsF 1AbE 2832 
AUTO - Erhöhungswert ;i1AsB 2819 


Adresse der aktuellen Zeile {FFFF = Direktkommando) 
s19BA 1AGE 1025 1DB4 {DCE 2196 


78E8-78E9 


T8EA-7BEB 


T8EC-7BED 


7BEE-78EF 


78F0-78F1 


T78F2 


TBF3-78F4 


TBF5-78F& 


78F7-79F8 


78F9-78FA 


TBFB-7BFC 


78FD-78FE 


Zeiger auf den BASIC-Stack 
s19AE 1895 1CH2 1028 1EES 2206 2325 


Nummer der Zeile, in der der letzte Fehler auftrat 
‚17A5 1961 1AB2 1FD3 24DF 


Nummer der Zeile, in der der letzte Fehler auftrat 
{.„-Öption bei LIST) 
‚19AB iABi 1E53 2B5B 


Adresse der Zeile, in der der Fehler auftrat 
si9RD AFCF 


Adresse einer Fehlerbehandlungs-Routine {GN ERROR) 
51908 iB74 1F84 


Fehler - Flag (Fehler=255, RESUME=B) 
‚1786 1906 1BAF IFAF 


Adresse des Dezimal-Punktes in Druck-Puffer 
sißcE 1197 1296 2343 2346 2537 2703 
32705 


Zeilennummer, bei der die letzte Unterbrechung 
stattfand (END, STOP, BREAK) 
‚1969 1DCB 1DEF 


Adresse der Zeile, in der die letzte Unterbrechung 
stattfand ‚19CD iB77 1DE4 


Programm-Endadresse 

Anfang der Variablen-Tabelle 
s1AC2 1ACD 1B5A 1B83 1E98 IF53 246A 
‚23 2BES 2BFi 3408 36BB 


Endadresse der Variablen-Tabelle 
Anfang der Matrix-Tabelle 
i 1B84 266E 26BB 2907 


Anfangsadresse des freien Speichers 

{hinter der Matrix-Tabelle) 
11964 1B89 26AB 26B6 2711 2779 2704 
12922 
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TOFF-7908 Zeiger auf DAT-Zeile 31096 21F@ 


Typcode - Tabelle 
1B6bb 1E2A 264A 


Š 
Me << +4 m DO  — ozr Kan TA NMO cnw D 


7918 TRACE -FLAG (0 = TRON, AF = TROFF) 
‚1D44 1DF9 


X - Register 
791C zus. Byte für rechts schieben 10898 BCB& BCEB BCF7 BDBE BD5A 


INT STRING SINGLE DOUBLE 
791D LSB BABB BAES ØBAG D20 ODIS D48 BEIE 
‚12E2 2387 2443 
791E LSB 
7NF LSB sBAEI 2A3F 
7928 LSB BAcS 
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7921 LSB 


7922 MSB 


7925 


7926-792£ 


792F 


7938-7949 


7944-7951 


792 


7955 


7958 


795B 


793E 


7961 


ADR 


ADR 


LSB LSB 
LSB LSB 
MSB MSB 
EXP EXP 


‚BIBF 073C 0866 0978 09A5 0985 O9BF 
J09CB BAGI BABO BAJA BACC OB46 AC5B 
sar37 ØF4E 1343 1352 1426 1F3E 2009 
12395 23FD 2433 246D 2488 2545 2562 
175D2 26DR 2664 288C 2991 299E 29DA 
2666 2EZA 2E37 


1075A 0782 BAA ØFBA ØFDF BAIA BAbZ 
@BBA BCDA ODIO ØDCC DELA 1422 2487 
‚8719 8779 078E 0797 0818 B8FD 0919 
1094D 0955 0969 BASF BB40 0R59 BCBR 
‚2005 E30 1208 1445 15C6 2605 


Zwischenspeicher für Arithmetik-ÖOperationen. 


z.B, Vorzeichen 


Y - Register 


‚8763 8015 1535 


{Aufteilung wie X-Register) 


unbenutzt 


Druck-Puffer 


BIF& BIFC 0449 0033 0045 BDDF BDFC 
sBEBA 1213 


s 1BCA 


1OFF5 1037 1896 


Zusätzliches Register für Multiplikationen und 
Divisionen sit doppelter Genauigkeit 


;ODF9 BEB7 BEZ 


RAM-Vektoren für Disketten-Befehle 





vorbesetzt nit ’JP B12DH’ (DISK-COMMAND - Error) 


(VI-Anweisung 
FN - Anweisung 
LVS-Anweisung 
DEF-Anweisung 
CVD-Anwei sung 
EOF-Anweisung 
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‚0893 1626 
12524 
1628 
1882 
1162A 


1162C 


7964 


7967 


796A 


796D 


7978 


7973 


7976 


7979 


7976 


797F 


7982 


7985 


7988 


7788 


798E 


7991 


7994 


7997 


7994 


799D 


79A% 


79A3 


LOC-Anweisung 
LOF-Anweisung 
MKI$-Anweisung 
MKS$-Anweisung 
MKD$-Anweisung 
CMD-Anweisung 
TIME$-Anweisung 
OPEN-Anweisung 
FIELD-Anweisung 
GET-Anweisung 
PUT-Anweisung 
CLOSE-Anweisung 
LOAD-Anweisung 
MERGE-Anweisung 
NAME-Anweisung 
KILL-Anweisung 
& - Anweisung 
LSET-Anweisung 
RSET-Anweisung 
INSTR-Anweisung 
SAVE-Anweisung 
LINE-Anweisung 
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+162E 
11630 
51632 
11634 
51636 
1182C 
12510 
11866 
1868 
1186A 
5186C 
184E 
‚1878 
1872 
1874 
1876 
2468 
1878 
1187A 
12506 
1187C 


skeine Referenz 


7986 
7989 
79AC 
TIAF-7IBI 
7982 
7985 
7988 
7988 
79BE 
791 
794 
7967 
TICA 
79CD 
7908 
7903 
7906 
7909 
76 


79DF 


RAM-Erweiterungsausgänge 


vorbelegt mit ’RET’ 
aus ERRÖR-Routine 

aus USR-Routine 
Anfang BMSIC-Schleife 
unbenutzt 

aus Programm-Eingabe 
Ende Programmeingabe 
Ende Programmeingabe 
aus NEW und END 
Endabfrage PRINT 
Datenausgabe 

Einlesen v. Tastatur 
RUN-Ausführung 

Anfang PRINT-Anweisung 
PRINT-Anweisung 
PRINT-Anweisung 
PRINT-Anweisung 
INPUT-Anweisung 

MID$ als Anweisung 
INPUT-Anweisung 


READ + INPUT + LIST 
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19EC 
Z27FE 


siAlt 


s1AAl 
slAEC S6EC 
siArZ 36F2 
;1BBC 1DBRO 
2174 
1832C 
18358 
s LEAG 
i 2B6F 
2866 
‚2103 
‚2108 2141 
1219A 
2AEC 
12220 


2278 2B44 





79E2-79E4 


7%5 JA BB 


79E7 2C 


79E8-7A9¢ 


79F8 


7A9D-7AAD 


7AAE 


TAAF 


7ABB-7ABI 


TAB2-TADI 


7AD2 


7AD3 
7ADA 
7ADS 


7AD6 


unbenutzt 


1/0-Buf fer-Vorspann ‚2288 
31473 370A 


Ein/Ausgabe-Puf fer 0421 Ba6R 8531 0542 B560 J6FB 


BASIC-Stack während der Initialisierung ;@BAC 


Programa-/Dateiname - Zwischenspeicher bei 
Kassetten-Ein/Ausgabe 
3581 35BE 3647 


Spaltenanzeige auf dem Bildschire 
2127 38D2 


Zusätzlicher Ausgabepuffer für gepufferte 
Bildschirmausgabe 


Anzahl Zeichen im Puffer 
‚053A 3089 3809 3BEB 3102 349A 3B13 
s3Bit 


Puffer-Zeiger ‚3aCı 38Ch SOFE 34AB 


Puffer-Bereich s3ßEE 3490 3626 363E 3644 


4 Byte-Puffer für Grafik-Druck, SOUND u. Kassette 1/0 
sa5CD 2BFD 2C12 3623 3678 36C4 381D 
3399A 3B7F 
3782 3788 39ED 


13402 
Zähler f. 0.a.Puffer + Länge Namen bei Kassetten 1/0 


1357D 35AD 398F 3992 3A2D 3A36 3A59 
i3ABE 3AI6 


Zeilenstatus für Bildschirs-Zeilen 
{8@=Einzelzeile, Si=Doppelzeile, BB=Folgezeile) 
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7AD7 
7ADB 
7AD9 
7ADA 
7ADB 
7ADE 
7ADD 
7ADE 
7ADF 
7AEB 
7AEI 
7AE2 
7AE3 
TAE4 
7AES 
7AE6 


7AE7 


7AEB 


Zeile | 
Zeile 2 
Zeile 3 
Zeile 4 
Zeile 5 
Zeile 6 
Zeile 7 
Zeile 8 
Zeile 9 
Zeile 18 
Zeile 11 
Zeile 12 
Zeile 13 
Zeile 14 
Zeile 15 
Zeile 16 


Programm-Anfang 
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OIFB 3J2AC J33E 3305 3496 3424 


13503 35DA 
ı338E 339D 350D 


;DRAB 





Die Einsteiger-Modelle für Schüler und Studenten 





VOGEL-BUCHVERLAG WÜRZBURG 


Diese knapp gehaltene Einführung 
in die Welt der Home-Computer 
zeigt allen Einsteigern, welche 
Möglichkeiten der Home-Computer 
bieten kann. Der Autor veranschau- 
licht in bewährter Art und Weise, 
abgespeckt von überflüssigem Bal- 
last, wo die Einsatzgebiete — die 
Stärken und die Schwächen dieser 
neuen Computer-Generation liegen. 
Typische Beispiele verdeutlichen 
die Problematik des Themas. 


Sacht, Hans-J. 


Home-Computer 
kurz und bündig 
Reihe HC — 

Mein Home-Computer 

152 Seiten, 

zahlr. Abbildungen, 
20,— DM 

ISBN 3-8023-0790-9 


Tatzl, Gerfried 

Die besten An- 
wendungen für 
Home-Computer 


Reihe HC — 
Mein Home-Computer 


192 Seiten, 

zahlr. Abbildungen, 
30,— DM 

ISBN 3-8023-0787-9 


Das Hauptaugenmerk wird in die- 
sem Buch nach einer kurzen Ein- 
führung auf Anwendungen gelegt, 
für die Home-Computer sinnvoll 
eingesetzt werden können. Beson- 
dere Bedeutung erhält dabei die 
Lösung von Aufgaben. Neben eini- 
gen Grafikanwendungen und Com- 
puterspielen werden Beispiele für 
Hobby, Haushalt, Textverarbeitung, 
Technik und Produktion gebracht. 


Dieser BASIC-Sprachführer für 
Umsteiger bietet Hilfestellung beim 
Übergang von der Benutzung 
tastenprogrammierbarer Rechner 
unterschiedlicher Rechenlogik zu 
Geräten, die mit BASIC arbeiten. 
Der Benutzer lernt gleichzeitig das 
Übersetzen von Programmen aus 
einem Sprachsystem in ein ande- 
res. Aber auch alle BASIC- 
Computer-Besitzer werden auf ihre 
Kosten kommen. 


Tatzl, Gerfried 


Vom Taschen- 
rechner zum 
Home-Computer 
Reihe HC — 

Mein Home-Computer 
272 Seiten, 

zahlr. Abbildungen, 
38,— DM 

ISBN 3-8023-0772-0 


Tatzl, Gerfried 


Praktische 
Problemanalyse 
Problem- 
Engineering 

Reihe CHIP WISSEN 


320 Seiten, 

53 Abbildungen, 
45,— DM 

ISBN 3-8023-0745-3 


Dieses Buch leistet einen Beitrag 
zur Behebung der vielzitierten Soft- 
warekrise. Ohne den Leser in ein 
enges Denkschema zu pressen, 
wird vorwiegend die kreative und 
intuitive Seite angesprochen. An- 
hand verschiedener Beispiele wird 


in diesem Buch der Weg eines 


„Springenden Funkens“ verfolgt. 
So lassen sich optimale Problem- 
gestaltungen ableiten und in ent- 
sprechende Programme umsetzen. 


Schneller erfolgreich durch Computer-Bücher 





Monat über 
30 Seiten 


> 5 | = Programme 
C jeden Monat: | 


x Programme für alle gängigen Home-Computer 

* Anwendungsbeispiele aus der Praxis 

x Marktübersicht, Tests und Kaufberatung für Zusatzgeräte 
und Home-Computer 

’& Schnellkurse für Einsteiger zum Sammeln 

K Tips und Tricks 

` Interessantes, Aktuelles und Unterhaltsames aus der 
Home-Computer-Szene 

x News, Ciubnachrichten 
Holen Sie sich die neueste Ausgabe bei Ihrem Zeitschriften- 
händler oder fordern Sie ein Kennenlernheft direkt beim Vogel- 
Verlag, Leserservice HC, Postfach 67 40, 8700 Würzburg, an. 








In kurzer Zeit haben sich die Home-Computer Sanyo Laser 
und VZ 200 eine beachtliche Anhängerschaft erworben — 
vor allem jugendliche Fans. Ihr Spieltrieb ist ungebrochen, 
ebenso ihre Neugier und ihr Spaß am Experimentieren. 
Dazu gehört, daß man voll erkennt, was das Gerät zu 
bieten hat, daß man weiß, wie es «da drinnen» aussieht. 
Dort einzudringen und alles zu erforschen, helfen diese 
ROM-Listings: ein toller «Fahrplan» in die letzten 
Geheimnisse des ROM-Speichers, klar gegliedert und 
ausführlich kommentiert. . 
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